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.adb | |
parent | 94609aeabcd441caa7c9d41f54166b3f3ede1442 (diff) |
Revamped tests to use the basic-unit-test project
Diffstat (limited to 'test/ratnest.adb')
-rw-r--r-- | test/ratnest.adb | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/test/ratnest.adb b/test/ratnest.adb deleted file mode 100644 index d063b41..0000000 --- a/test/ratnest.adb +++ /dev/null @@ -1,34 +0,0 @@ - - -with - - Ada.Text_IO; - -use - - Ada.Text_IO; - - -package body Ratnest is - - - procedure Run_Tests - (To_Run : in Test_Array) - is - Total_Count : Natural := To_Run'Length; - Failed_Count : Natural := 0; - begin - for T of To_Run loop - if T.Func.all = Fail then - Put_Line ("Failed test " & (-T.Name)); - Failed_Count := Failed_Count + 1; - end if; - end loop; - Put_Line ("Test results" & Integer'Image (Total_Count - Failed_Count) & - " out of" & Integer'Image (Total_Count)); - end Run_Tests; - - -end Ratnest; - - |