@@ -39,7 +39,7 @@ getElms filePath =
40testsDir :: FilePath
40testsDir :: FilePath
42− "tests" </> "compiler" </> "test-files"
42+ "tests" </> "test-files"
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