Tests added for Stamp and Ignore procedures in Packrat.Lexer

1 files changed, 15 insertions, 0 deletions

diff --git a/test/packrat-lexer-debug.adb b/test/packrat-lexer-debug.adb
index f13a675..335e3d2 100644
--- a/test/packrat-lexer-debug.adb
+++ b/test/packrat-lexer-debug.adb
@@ -117,6 +117,21 @@ package body Packrat.Lexer.Debug is
         return This.Pass_Forward;
     end Pass;
 
+    function Length
+           (Vec : in Token_Vector)
+        return Natural is
+    begin
+        return Integer (Token_Vectors.Vector (Vec).Length);
+    end Length;
+
+    function Element
+           (Vec : in Token_Vector;
+            Dex : in Positive)
+        return Gen_Tokens.Token is
+    begin
+        return Token_Vectors.Vector (Vec).Element (Dex);
+    end Element;
+
 
 end Packrat.Lexer.Debug;