diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-08-21 10:16:01 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-08-21 10:16:01 +0100 |
| commit | 6660222a799c57b71eb0272dbe53d76f36c0e4be (patch) | |
| tree | 5ebaa1cd65fbae8f26894f454ba3f302593f7e69 /test/Language.hs | |
| parent | ccb2e6e02f39f6cf5f7beb4aa64bec948a8c7edf (diff) | |
| download | micro-lang-hs-6660222a799c57b71eb0272dbe53d76f36c0e4be.tar.gz micro-lang-hs-6660222a799c57b71eb0272dbe53d76f36c0e4be.zip | |
Show the error types we got
Diffstat (limited to 'test/Language.hs')
| -rw-r--r-- | test/Language.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 = |