diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2020-05-24 19:07:23 +1000 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2020-05-24 19:07:23 +1000 |
| commit | 731e861f233ab90078c00b3dad5ace4eaed45e95 (patch) | |
| tree | 173ac51104a31864a073e6c5c140853aee1ed80e /test/ratnest.ads | |
| parent | 94609aeabcd441caa7c9d41f54166b3f3ede1442 (diff) | |
Revamped tests to use the basic-unit-test project
Diffstat (limited to 'test/ratnest.ads')
| -rw-r--r-- | test/ratnest.ads | 47 |
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; - - |