Index: tests/natools-s_expressions-parsers-tests.adb
==================================================================
--- tests/natools-s_expressions-parsers-tests.adb
+++ tests/natools-s_expressions-parsers-tests.adb
@@ -252,12 +252,12 @@
          Parser.Reset (Hard => True);
 
          if Parser.Internal /= Empty.Internal
            or else Parser.Next_Event /= Empty.Next_Event
            or else Parser.Latest /= Empty.Latest
-           or else Parser.Pending /= Empty.Pending
-           or else Parser.Buffer /= Empty.Buffer
+           or else Parser.Pending.Capacity /= 0
+           or else Parser.Buffer.Capacity /= 0
            or else Parser.Level /= Empty.Level
            or else Parser.Lock_Stack /= Empty.Lock_Stack
            or else Parser.Locked /= Empty.Locked
          then
             Test.Fail ("Parser after hard reset is not empty");