Differences From Artifact [7b455a1983]:
- File tests/natools-s_expressions-atom_buffers-tests.adb — part of check-in [16e999a3da] at 2014-01-13 19:24:42 on branch trunk — s_expressions-atom_buffers: rename accessors for less overloading (user: nat size: 10623)
To Artifact [50f8825dfd]:
- File tests/natools-s_expressions-atom_buffers-tests.adb — part of check-in [b57427c879] at 2014-01-14 20:30:31 on branch trunk — s_expressions-atom_buffers-tests: new test for actual contents after soft reset (user: nat size: 10943)
| ︙ | |||
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;
|
| ︙ |