on master help sign in
Get compiler tests running again, fix #869 and fix #870
80da6ffEvan Czaplicki
tests/Test/Compiler.hs+3−3
@@ -39,7 +39,7 @@ getElms filePath =
39
39
40testsDir :: FilePath
40testsDir :: FilePath
41testsDir =
41testsDir =
42− "tests" </> "compiler" </> "test-files"
42+ "tests" </> "test-files"
43
43
44
44
45-- RUN COMPILER
45-- RUN COMPILER
@@ -69,5 +69,5 @@ isSuccess result =
69isFailure :: Either a b -> Assertion
69isFailure :: Either a b -> Assertion
70isFailure result =
70isFailure result =
71 case result of
71 case result of
72− Left _ -> assertFailure "Compilation succeeded but should have failed"
72+ Right _ -> assertFailure "Compilation succeeded but should have failed"
73− Right _ -> assertBool "" True
73+ Left _ -> assertBool "" True