Cleaned up Lexer, Util package names

1 files changed, 48 insertions, 0 deletions

diff --git a/test/rat_tests-utilities.ads b/test/rat_tests-utilities.ads
new file mode 100644
index 0000000..b3fcaee
--- /dev/null
+++ b/test/rat_tests-utilities.ads
@@ -0,0 +1,48 @@
+
+
+with Unit_Tests;
+use Unit_Tests;
+
+
+package Rat_Tests.Utilities is
+
+
+    function In_Set_Check return Test_Result;
+    function Not_In_Set_Check return Test_Result;
+
+    Set_Predicate_Tests : Test_Array :=
+       ((+"In_Set", In_Set_Check'Access),
+        (+"Not_In_Set", Not_In_Set_Check'Access));
+
+
+    function Is_Digit_Check return Test_Result;
+    function Is_Hex_Check return Test_Result;
+    function Is_Letter_Check return Test_Result;
+    function Is_Alphanumeric_Check return Test_Result;
+    function Is_Punctuation_Check return Test_Result;
+    function Is_ASCII_Check return Test_Result;
+    function Is_Extended_ASCII_Check return Test_Result;
+    function Is_Space_Check return Test_Result;
+    function Is_Linespace_Check return Test_Result;
+    function Is_End_Of_Line_Check return Test_Result;
+    function Is_Whitespace_Check return Test_Result;
+    function Not_Whitespace_Check return Test_Result;
+
+    Predicate_Tests : Test_Array :=
+       ((+"Is_Digit", Is_Digit_Check'Access),
+        (+"Is_Hex", Is_Hex_Check'Access),
+        (+"Is_Letter", Is_Letter_Check'Access),
+        (+"Is_Alphanumeric", Is_Alphanumeric_Check'Access),
+        (+"Is_Punctuation", Is_Punctuation_Check'Access),
+        (+"Is_ASCII", Is_ASCII_Check'Access),
+        (+"Is_Extended_ASCII", Is_Extended_ASCII_Check'Access),
+        (+"Is_Space", Is_Space_Check'Access),
+        (+"Is_Linespace", Is_Linespace_Check'Access),
+        (+"Is_End_Of_Line", Is_End_Of_Line_Check'Access),
+        (+"Is_Whitespace", Is_Whitespace_Check'Access),
+        (+"Not_Whitespace", Not_Whitespace_Check'Access));
+
+
+end Rat_Tests.Utilities;
+
+