Index: tests/natools-s_expressions-parsers-tests.adb
==================================================================
--- tests/natools-s_expressions-parsers-tests.adb
+++ tests/natools-s_expressions-parsers-tests.adb
@@ -154,10 +154,22 @@
             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;