From 4371f2d4c6ac03635cdd6815cb59160b57ed2fbc Mon Sep 17 00:00:00 2001 From: Robbie Gleichman Date: Sun, 27 Nov 2016 15:07:35 -0800 Subject: [PATCH] Fix factorial test. --- test/AllTests.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/AllTests.hs b/test/AllTests.hs index 9474e1c..f178c9c 100644 --- a/test/AllTests.hs +++ b/test/AllTests.hs @@ -376,8 +376,8 @@ operatorTests = [ otherTests = [ "y = f 1 'c' 2.3 \"foobar\"", - "fact x = if (x == 0) then 1 else (fact x (x - 1))", - "fact x = if ((==) 0 x) then 1 else (fact x ((-) x 1))", + "fact x = if (x == 0) then 1 else (x * fact (x - 1))", + "fact x = if ((==) 0 x) then 1 else (x * fact ((-) x 1))", "y x = if x then (if z then q else x) else w", "y x1 x2 x3 = if f x1 then g x2 else h x3", "y x1 x2 x3 = if x1 then x2 else x3",