summaryrefslogtreecommitdiff
path: root/test/ratnest.ads
diff options
context:
space:
mode:
Diffstat (limited to 'test/ratnest.ads')
-rw-r--r--test/ratnest.ads47
1 files changed, 0 insertions, 47 deletions
diff --git a/test/ratnest.ads b/test/ratnest.ads
deleted file mode 100644
index 24a5162..0000000
--- a/test/ratnest.ads
+++ /dev/null
@@ -1,47 +0,0 @@
-
-
-with
-
- Ada.Strings.Unbounded;
-
-
-package Ratnest is
-
-
- type Test_Result is (Fail, Pass);
-
- type Test_Function is access function return Test_Result;
-
- type Test is record
- Name : Ada.Strings.Unbounded.Unbounded_String;
- Func : Test_Function;
- end record;
-
- type Test_Array is array (Positive range <>) of Test;
-
-
-
-
- procedure Run_Tests
- (To_Run : in Test_Array);
-
-
-
-
- function "+"
- (S : in String)
- return Ada.Strings.Unbounded.Unbounded_String
- renames Ada.Strings.Unbounded.To_Unbounded_String;
-
- function "-"
- (US : in Ada.Strings.Unbounded.Unbounded_String)
- return String
- renames Ada.Strings.Unbounded.To_String;
-
-
-private
-
-
-end Ratnest;
-
-