c801f4f · typeable/pandoc

git.iko.soy/typeable/pandoc

Put dashed lines around diff results in Old test.

commitc801f4f6219fc8248ccdb5a1651662fd79ea9285 authorJohn MacFarlane <jgm@berkeley.edu> dateSat 22 Jan 2011, 13:39 (16 years ago) parent61c0647

1 file changed+5−2

unifiedsplit

tests/Tests/Old.hs+5−2

@@ -33,8 +33,11 @@ data TestResult = TestPassed

3333instance Show TestResult where

3434 show TestPassed = "PASSED"

3535 show (TestError ec) = "ERROR " ++ show ec

36− show (TestFailed cmd file d) = "\n--- " ++ file ++

37− "\n+++ " ++ cmd ++ "\n" ++ showDiff (1,1) d

36+ show (TestFailed cmd file d) = '\n' : dash ++

37+ "\n--- " ++ file ++

38+ "\n+++ " ++ cmd ++ "\n" ++ showDiff (1,1) d ++

39+ dash

40+ where dash = replicate 72 '-'

3841

3942showDiff :: (Int,Int) -> [(DI, String)] -> String

4043showDiff _ [] = ""