diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-01-22 13:39:59 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-01-22 13:39:59 -0800 |
| commit | c801f4f6219fc8248ccdb5a1651662fd79ea9285 (patch) | |
| tree | 432fca139c6ec94ed04abe2aab94e978588ec423 /tests/Tests | |
| parent | 61c0647d49b8f643238423a0c537176df8c855ed (diff) | |
| download | pandoc-c801f4f6219fc8248ccdb5a1651662fd79ea9285.tar.gz | |
Put dashed lines around diff results in Old test.
Diffstat (limited to 'tests/Tests')
| -rw-r--r-- | tests/Tests/Old.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/Tests/Old.hs b/tests/Tests/Old.hs index d73d731fb..bc6452dc3 100644 --- a/tests/Tests/Old.hs +++ b/tests/Tests/Old.hs @@ -33,8 +33,11 @@ data TestResult = TestPassed instance Show TestResult where show TestPassed = "PASSED" show (TestError ec) = "ERROR " ++ show ec - show (TestFailed cmd file d) = "\n--- " ++ file ++ - "\n+++ " ++ cmd ++ "\n" ++ showDiff (1,1) d + show (TestFailed cmd file d) = '\n' : dash ++ + "\n--- " ++ file ++ + "\n+++ " ++ cmd ++ "\n" ++ showDiff (1,1) d ++ + dash + where dash = replicate 72 '-' showDiff :: (Int,Int) -> [(DI, String)] -> String showDiff _ [] = "" |