Overview
| Comment: | s_expressions-atom_buffers-tests: new test for actual contents after soft reset |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
b57427c8792d87b3a3fab817b957ce1d |
| User & Date: | nat on 2014-01-14 20:30:31 |
| Other Links: | manifest | tags |
Context
|
2014-01-15
| ||
| 21:49 | s_expressions-atom_buffers: fix accessors to return only used part of the buffer check-in: ad0685d1d1 user: nat tags: trunk | |
|
2014-01-14
| ||
| 20:30 | s_expressions-atom_buffers-tests: new test for actual contents after soft reset check-in: b57427c879 user: nat tags: trunk | |
|
2014-01-13
| ||
| 19:24 | s_expressions-atom_buffers: rename accessors for less overloading check-in: 16e999a3da user: nat tags: trunk | |
Changes
Modified tests/natools-s_expressions-atom_buffers-tests.adb from [7b455a1983] to [50f8825dfd].
| ︙ | |||
300 301 302 303 304 305 306 307 308 309 310 311 312 313 | 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 | + + + + + + + + |
if Buffer.Raw_Query.Data.all'Length /= Buffer.Available then
Report.Item (Name, NT.Fail);
Report.Info ("Available length inconsistency, recorded"
& Count'Image (Buffer.Available) & ", actual"
& Count'Image (Buffer.Raw_Query.Data.all'Length));
return;
end if;
if Buffer.Data'Length /= Buffer.Used then
Report.Item (Name, NT.Fail);
Report.Info ("Used length inconsistency, recorded"
& Count'Image (Buffer.Used) & ", actual"
& Count'Image (Buffer.Data'Length));
return;
end if;
end;
for O in Octet'(10) .. Octet'(50) loop
Buffer.Append (O);
end loop;
Buffer.Hard_Reset;
|
| ︙ |