From 6660222a799c57b71eb0272dbe53d76f36c0e4be Mon Sep 17 00:00:00 2001 From: "Juan J. Martinez" Date: Sun, 21 Aug 2022 10:16:01 +0100 Subject: Show the error types we got --- test/Language.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/Language.hs b/test/Language.hs index e52bb3b..da5d288 100644 --- a/test/Language.hs +++ b/test/Language.hs @@ -28,7 +28,7 @@ expectError input etyp = do case res of Left e -> case (find (\(E.Error t _ _) -> t == etyp) e) of Just _ -> return () - Nothing -> assertFailure $ "expected " ++ show etyp ++ " didn't happen" + Nothing -> assertFailure $ "expected " ++ show etyp ++ " didn't happen, got instead:\n" ++ unlines (map (\(E.Error t _ _) -> show t) e) Right _ -> assertFailure "expected error, didn't happen" testCase1 = -- cgit v1.2.3