Overview
| Comment: | s_expressions-file_rw_tests: test the new atom-reference reader |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
88f1a31b31335500824256d1f26390eb |
| User & Date: | nat on 2014-07-14 19:04:33 |
| Other Links: | manifest | tags |
Context
|
2014-07-15
| ||
| 20:07 | reference_tests: add a task-safety test (that isn't relevant on single-core) check-in: 8292cedaee user: nat tags: trunk | |
|
2014-07-14
| ||
| 19:04 | s_expressions-file_rw_tests: test the new atom-reference reader check-in: 88f1a31b31 user: nat tags: trunk | |
|
2014-07-13
| ||
| 14:27 | s_expressions-file_readers: add an atom-reference read function check-in: d6e43fe336 user: nat tags: trunk | |
Changes
Modified tests/natools-s_expressions-file_rw_tests.adb from [02caf65edd] to [1277e61ea6].
| ︙ | ︙ | |||
15 16 17 18 19 20 21 22 23 24 25 26 27 28 | ------------------------------------------------------------------------------ with Ada.Streams.Stream_IO; with Ada.Strings.Unbounded; with Ada.Unchecked_Deallocation; with Natools.S_Expressions.Atom_Buffers; with Natools.S_Expressions.File_Readers; with Natools.S_Expressions.File_Writers; with Natools.S_Expressions.Test_Tools; with GNAT.Debug_Pools; package body Natools.S_Expressions.File_RW_Tests is | > | 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | ------------------------------------------------------------------------------ with Ada.Streams.Stream_IO; with Ada.Strings.Unbounded; with Ada.Unchecked_Deallocation; with Natools.S_Expressions.Atom_Buffers; with Natools.S_Expressions.Atom_Refs; with Natools.S_Expressions.File_Readers; with Natools.S_Expressions.File_Writers; with Natools.S_Expressions.Test_Tools; with GNAT.Debug_Pools; package body Natools.S_Expressions.File_RW_Tests is |
| ︙ | ︙ | |||
119 120 121 122 123 124 125 126 127 128 129 130 131 132 |
declare
Buffer : Atom_Buffers.Atom_Buffer;
begin
Reader.Read (Buffer, 100);
Test_Tools.Test_Atom (Test, Payload, Buffer.Data);
end Buffer_Read;
Block_Read :
declare
procedure Process (Block : in Atom);
Offset : Count := 0;
procedure Process (Block : in Atom) is
| > > > > > > > > | 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 |
declare
Buffer : Atom_Buffers.Atom_Buffer;
begin
Reader.Read (Buffer, 100);
Test_Tools.Test_Atom (Test, Payload, Buffer.Data);
end Buffer_Read;
Reference_Read :
declare
Buffer : Atom_Refs.Reference;
begin
Buffer := Reader.Read;
Test_Tools.Test_Atom (Test, Payload, Buffer.Query.Data.all);
end Reference_Read;
Block_Read :
declare
procedure Process (Block : in Atom);
Offset : Count := 0;
procedure Process (Block : in Atom) is
|
| ︙ | ︙ |