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;
-
-