Tests added for Stamp and Ignore procedures in Packrat.Lexer

1 files changed, 21 insertions, 0 deletions

diff --git a/test/ratnest-tests.ads b/test/ratnest-tests.ads
index 9febd35..f795340 100644
--- a/test/ratnest-tests.ads
+++ b/test/ratnest-tests.ads
@@ -85,6 +85,27 @@ package Ratnest.Tests is
             (+"Line End", Line_End_Check'Access),
             (+"Input_End", Input_End_Check'Access));
 
+
+        function Stamp_Check return Test_Result;
+        function Ignore_Check return Test_Result;
+
+        function Scan_Check return Test_Result;
+        function Scan_Set_Check return Test_Result;
+        function Scan_Only_Check return Test_Result;
+        function Scan_Set_Only_Check return Test_Result;
+        function Scan_With_Check return Test_Result;
+        function Scan_Set_With_Check return Test_Result;
+
+        Lexer_Tests : Test_Array :=
+           ((+"Stamp", Stamp_Check'Access),
+            (+"Ignore", Ignore_Check'Access),
+            (+"Scan", Scan_Check'Access),
+            (+"Scan_Set", Scan_Set_Check'Access),
+            (+"Scan_Only", Scan_Only_Check'Access),
+            (+"Scan_Set_Only", Scan_Set_Only_Check'Access),
+            (+"Scan_With", Scan_With_Check'Access),
+            (+"Scan_Set_With", Scan_Set_With_Check'Access));
+
     end Lexer;