Natools

Check-in [b57427c879]
Login
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: b57427c8792d87b3a3fab817b957ce1dea165745
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
            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;








         end;

         for O in Octet'(10) .. Octet'(50) loop
            Buffer.Append (O);
         end loop;

         Buffer.Hard_Reset;







>
>
>
>
>
>
>
>







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;