1 files changed, 81 insertions, 0 deletions
diff --git a/test/rat_tests-lexer.ads b/test/rat_tests-lexer.ads
new file mode 100644
index 0000000..bc3045c
--- /dev/null
+++ b/test/rat_tests-lexer.ads
@@ -0,0 +1,81 @@
+
+
+with Unit_Tests;
+use Unit_Tests;
+
+
+package Rat_Tests.Lexer is
+
+
+    function Join_Check return Test_Result;
+    function Equals_Check return Test_Result;
+
+    function Sequence_Check return Test_Result;
+    function Count_Check return Test_Result;
+    function Many_Check return Test_Result;
+    function Many_Until_Check return Test_Result;
+
+    function Satisfy_Check return Test_Result;
+    function Satisfy_With_Check return Test_Result;
+    function Match_Check return Test_Result;
+    function Match_With_Check return Test_Result;
+    function Multimatch_Check return Test_Result;
+    function Take_Check return Test_Result;
+    function Take_While_Check return Test_Result;
+    function Take_Until_Check return Test_Result;
+
+    function Line_End_Check return Test_Result;
+    function Input_End_Check return Test_Result;
+
+    Combinator_Tests : Test_Array :=
+       ((+"Join", Join_Check'Access),
+        (+"Equals", Equals_Check'Access),
+        (+"Sequence", Sequence_Check'Access),
+        (+"Count", Count_Check'Access),
+        (+"Many", Many_Check'Access),
+        (+"Many_Until", Many_Until_Check'Access),
+        (+"Satisfy", Satisfy_Check'Access),
+        (+"Satisfy With", Satisfy_With_Check'Access),
+        (+"Match", Match_Check'Access),
+        (+"Match With", Match_With_Check'Access),
+        (+"Multimatch", Multimatch_Check'Access),
+        (+"Take", Take_Check'Access),
+        (+"Take While", Take_While_Check'Access),
+        (+"Take Until", Take_Until_Check'Access),
+        (+"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_Only_Check return Test_Result;
+    function Scan_With_Check return Test_Result;
+    function Scan_Set_Check return Test_Result;
+    function Scan_Set_With_Check return Test_Result;
+
+    function Scan_Error_Check return Test_Result;
+    function Scan_Only_Error_Check return Test_Result;
+    function Scan_With_Error_Check return Test_Result;
+    function Scan_Set_Error_Check return Test_Result;
+    function Scan_Set_With_Error_Check return Test_Result;
+
+    Lexer_Tests : Test_Array :=
+       ((+"Stamp", Stamp_Check'Access),
+        (+"Ignore", Ignore_Check'Access),
+        (+"Scan", Scan_Check'Access),
+        (+"Scan_Only", Scan_Only_Check'Access),
+        (+"Scan_With", Scan_With_Check'Access),
+        (+"Scan_Set", Scan_Set_Check'Access),
+        (+"Scan_Set_With", Scan_Set_With_Check'Access),
+        (+"Scan Exception", Scan_Error_Check'Access),
+        (+"Scan_Only Exception", Scan_Only_Error_Check'Access),
+        (+"Scan_With Exception", Scan_With_Error_Check'Access),
+        (+"Scan_Set Exception", Scan_Set_Error_Check'Access),
+        (+"Scan_Set_With Exception", Scan_Set_With_Error_Check'Access));
+
+
+end Rat_Tests.Lexer;
+
+