diff options
Diffstat (limited to 'test/ratnest.adb')
-rw-r--r-- | test/ratnest.adb | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/test/ratnest.adb b/test/ratnest.adb new file mode 100644 index 0000000..8d1493c --- /dev/null +++ b/test/ratnest.adb @@ -0,0 +1,34 @@ + + +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 = Failure 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; + + |