Better error message in test

slycelote · Nov 6, 2021 · 324f6eb · 324f6eb
1 parent 6425daf
commit 324f6eb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/libcaide/test/ProblemParsers.hs b/libcaide/test/ProblemParsers.hs
@@ -25,7 +25,7 @@ assertParses parser url expectedProblem expectedTestCases = HUnit.TestCase $ do
     assertBool "The parser must be able to handle the URL" $ problemUrlMatches url
     parseResult <- parseProblem url Nothing
     case parseResult of
-        Left err -> assertFailure $ T.unpack err
+        Left err -> assertFailure $ T.unpack $ url <> ": " <> err
         Right (problem, testCases) -> do
             assertEqual "Problem name" (problemName expectedProblem) (problemName problem)
             assertEqual "Problem ID" (problemId expectedProblem) (problemId problem)