1 files changed, 1 insertions, 1 deletions
diff --git a/test/ratnest.adb b/test/ratnest.adb
index 8d1493c..d063b41 100644
--- a/test/ratnest.adb
+++ b/test/ratnest.adb
@@ -19,7 +19,7 @@ package body Ratnest is
         Failed_Count : Natural := 0;
     begin
         for T of To_Run loop
-            if T.Func.all = Failure then
+            if T.Func.all = Fail then
                 Put_Line ("Failed test " & (-T.Name));
                 Failed_Count := Failed_Count + 1;
             end if;