From b60f27407c20344f5d48fa7d6f3efe5f9d4e87fb Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Mon, 14 Jan 2019 23:31:07 +1100
Subject: Tests added for Stamp and Ignore procedures in Packrat.Lexer

---
 test/packrat-lexer-debug.adb | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'test/packrat-lexer-debug.adb')

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;
 
-- 
cgit