diff options
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 _ [] = "" |