git.iko.soy/typeable/pandoc
on master help sign in
Put dashed lines around diff results in Old test.
c801f4fJohn MacFarlane
tests/Tests/Old.hs+5−2
compare with master
unifiedsplit
@@ -33,8 +33,11 @@ data TestResult = TestPassed
33instance Show TestResult where
33instance Show TestResult where
34 show TestPassed = "PASSED"
34 show TestPassed = "PASSED"
35 show (TestError ec) = "ERROR " ++ show ec
35 show (TestError ec) = "ERROR " ++ show ec
36− show (TestFailed cmd file d) = "\n--- " ++ file ++
36+ show (TestFailed cmd file d) = '\n' : dash ++
37+ "\n--- " ++ file ++
37− "\n+++ " ++ cmd ++ "\n" ++ showDiff (1,1) d
38+ "\n+++ " ++ cmd ++ "\n" ++ showDiff (1,1) d ++
39+ dash
40+ where dash = replicate 72 '-'
38
41
39showDiff :: (Int,Int) -> [(DI, String)] -> String
42showDiff :: (Int,Int) -> [(DI, String)] -> String
40showDiff _ [] = ""
43showDiff _ [] = ""