88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
procedure Blackbox_Test (Report : in out NT.Reporter'Class) is
begin
declare
Input, Output : aliased Test_Tools.Memory_Stream;
Printer : Printers.Canonical (Output'Access);
Parser : aliased Parsers.Parser;
Sub : Subparser (Parser'Access, Input'Access);
Event : Events.Event; -- !
-- Parser.Next_Event (Input'Access);
Sub.Next (Event); -- !
|
<
<
|
|
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
procedure Blackbox_Test (Report : in out NT.Reporter'Class) is
begin
declare
Input, Output : aliased Test_Tools.Memory_Stream;
Printer : Printers.Canonical (Output'Access);
Parser : aliased Parsers.Parser;
Sub : Subparser (Parser'Access, Input'Access);
begin
Output.Set_Expected (Expected);
Input.Set_Data (Source);
Sub.Next;
Printers.Transfer (Sub, Printer);
Check_Parsing (Report, Name, Parser, Input, Output);
end;
exception
when Error : others => Report.Report_Exception (Name, Error);
|