Revamped tests to use the basic-unit-test project

1 files changed, 22 insertions, 0 deletions

diff --git a/test/rat_tests-tokens.ads b/test/rat_tests-tokens.ads
new file mode 100644
index 0000000..1804347
--- /dev/null
+++ b/test/rat_tests-tokens.ads
@@ -0,0 +1,22 @@
+
+
+with Unit_Tests;
+use Unit_Tests;
+
+
+package Rat_Tests.Tokens is
+
+
+    function Adjust_Check return Test_Result;
+    function Equals_Check return Test_Result;
+    function Store_Check return Test_Result;
+
+    Tests : Test_Array :=
+       ((+"Adjust", Adjust_Check'Access),
+        (+"Equals", Equals_Check'Access),
+        (+"Storage", Store_Check'Access));
+
+
+end Rat_Tests.Tokens;
+
+