152
153
154
155
156
157
158
159
160
161
162
163
164
165
|
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
|
+
+
+
+
+
+
+
+
+
+
+
+
|
Last_Event : constant Events.Event := Parser.Current_Event;
begin
if Last_Event /= Events.End_Of_Input then
Test.Fail ("Unexpected last event "
& Events.Event'Image (Last_Event));
end if;
end Check_Last_Event;
Parser.Close_Current_List;
Check_Byeond_Last_Event :
declare
Last_Event : constant Events.Event := Parser.Current_Event;
begin
if Last_Event /= Events.End_Of_Input then
Test.Fail ("Unexpected bayond-last event "
& Events.Event'Image (Last_Event));
end if;
end Check_Byeond_Last_Event;
end;
exception
when Error : others => Test.Report_Exception (Error);
end Close_Current_List;
procedure Lockable_Interface (Report : in out NT.Reporter'Class) is
|