Differences From Artifact [ec3eb81d6e]:
- File tests/natools-s_expressions-test_tools.ads — part of check-in [f95cb1f5a8] at 2014-02-12 21:59:00 on branch trunk — Move Check_Stream from Natools.S_Expressions.Printers.Pretty.Tests to Natools.S_Expressions.Test_Tools to make it more widely available (user: nat, size: 4649) [annotate] [blame] [check-ins using]
To Artifact [92a8d34147]:
- File tests/natools-s_expressions-test_tools.ads — part of check-in [962add2a19] at 2014-02-17 19:43:39 on branch trunk — s_expressions-test_tools: new helper procedure to test all atom accessors at once (user: nat, size: 4872) [annotate] [blame] [check-ins using]
| ︙ | |||
52 53 54 55 56 57 58 59 60 61 62 63 64 65 | 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 | + + + + + + + |
procedure Test_Atom
(Test : in out NT.Test;
Expected : in Atom;
Found : in Atom);
-- Report success when Found is equal to Expected, and failure
-- with diagnostics otherwise.
procedure Test_Atom_Accessors
(Test : in out NT.Test;
Tested : in Descriptor'Class;
Expected : in Atom;
Expected_Level : in Integer := -1);
-- Test all the ways of accessing atom in Tested
type Memory_Stream is new Ada.Streams.Root_Stream_Type with private;
overriding procedure Read
(Stream : in out Memory_Stream;
Item : out Ada.Streams.Stream_Element_Array;
Last : out Ada.Streams.Stream_Element_Offset);
|
| ︙ |