git.iko.soy/elk
on master help sign in
Print details if compile fails during test.
a18569dLaszlo Pandy
tests/Test/Compiler.hs+2−2
compare with master
unifiedsplit
@@ -156,8 +156,8 @@ matchesExpected expectedJs result =
156 Right (Compiler.Result _ _ js) ->
156 Right (Compiler.Result _ _ js) ->
157 assertEqual matchFailureMessage expectedJs js
157 assertEqual matchFailureMessage expectedJs js
158
158
159− _ ->
159+ Left errorMessages ->
160− assertFailure "Compile failed. There is nothing to match expected output."
160+ assertFailure $ "Compile failed:\n" ++ errorMessages
161
161
162
162
163matchFailureMessage :: String
163matchFailureMessage :: String