94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
procedure Reset_Mismatch (Stream : in out Memory_Stream);
-- Accessor and mutator of the mismatch flag
function Mismatch_Index (Stream : Memory_Stream) return Count;
-- Return the position of the first mismatching octet,
-- or 0 when there has been no mismatch.
private
type Memory_Stream is new Ada.Streams.Root_Stream_Type with record
Internal : Atom_Buffers.Atom_Buffer;
Expected : Atom_Buffers.Atom_Buffer;
Read_Pointer : Count := 0;
Expect_Pointer : Count := 0;
Mismatch : Boolean := False;
end record;
end Natools.S_Expressions.Test_Tools;
|
>
>
>
>
>
|
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
procedure Reset_Mismatch (Stream : in out Memory_Stream);
-- Accessor and mutator of the mismatch flag
function Mismatch_Index (Stream : Memory_Stream) return Count;
-- Return the position of the first mismatching octet,
-- or 0 when there has been no mismatch.
procedure Check_Stream
(Stream : in Test_Tools.Memory_Stream;
Test : in out NT.Test);
-- On error in Stream, report error and dump relevant information.
private
type Memory_Stream is new Ada.Streams.Root_Stream_Type with record
Internal : Atom_Buffers.Atom_Buffer;
Expected : Atom_Buffers.Atom_Buffer;
Read_Pointer : Count := 0;
Expect_Pointer : Count := 0;
Mismatch : Boolean := False;
end record;
end Natools.S_Expressions.Test_Tools;
|