Print details if compile fails during test.
commita18569d4e181f23d720f8de70470ca6e2b44029d
authorLaszlo Pandy <laszlo.pandy@prezi.com>
dateMon 31 Aug 2015, 15:32 (11 years ago)
parent532cdfc
tests/Test/Compiler.hs+2−2
@@ -156,8 +156,8 @@ matchesExpected expectedJs result =
156156 Right (Compiler.Result _ _ js) ->
157157 assertEqual matchFailureMessage expectedJs js
158158
159− _ ->
160− assertFailure "Compile failed. There is nothing to match expected output."
159+ Left errorMessages ->
160+ assertFailure $ "Compile failed:\n" ++ errorMessages
161161
162162
163163matchFailureMessage :: String