git.iko.soy/typeable/pandoc
on master help sign in
tests: print accurate location if a test fails
00e4bb5Albert Krewinkel
test/Tests/Helpers.hs+1−1
compare with master
unifiedsplit
@@ -35,7 +35,7 @@ import Text.Pandoc.Shared (trimr)
35import Text.Pandoc.Writers.Native (writeNative)
35import Text.Pandoc.Writers.Native (writeNative)
36import Text.Printf
36import Text.Printf
37
37
38−test :: (ToString a, ToString b, ToString c)
38+test :: (ToString a, ToString b, ToString c, HasCallStack)
39 => (a -> b) -- ^ function to test
39 => (a -> b) -- ^ function to test
40 -> String -- ^ name of test case
40 -> String -- ^ name of test case
41 -> (a, c) -- ^ (input, expected value)
41 -> (a, c) -- ^ (input, expected value)