From dc3078a06b5ee52751cfb6fd6cf13b3790632ac4 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sat, 12 Jan 2019 00:38:45 +1100 Subject: Packrat.Lexer.Combinators specs and tests complete --- test/ratnest.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'test/ratnest.adb') 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; -- cgit