diff options
author | John MacFarlane <jgm@berkeley.edu> | 2011-01-11 19:10:35 -0800 |
---|---|---|
committer | Nathan Gass <gass@search.ch> | 2011-01-12 11:36:02 +0100 |
commit | cf5e8a824fe44ad65f1a3eb6255457667ba0cf70 (patch) | |
tree | 1fc901d2056b0c31b1139e81e81beb147404cbc7 | |
parent | 530e3edc0f734dea454c7a542ca4e59a03cbe3fe (diff) | |
download | pandoc-cf5e8a824fe44ad65f1a3eb6255457667ba0cf70.tar.gz |
test-pandoc: Improved header for diff output.
-rw-r--r-- | tests/test-pandoc.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/test-pandoc.hs b/tests/test-pandoc.hs index 586b807c2..7b585a921 100644 --- a/tests/test-pandoc.hs +++ b/tests/test-pandoc.hs @@ -33,8 +33,8 @@ data TestResult = TestPassed instance Show TestResult where show TestPassed = "PASSED" show (TestError ec) = "ERROR " ++ show ec - show (TestFailed cmd file d) = cmd ++ "\n--- expected (" ++ file ++ ")" ++ - "\n+++ actual\n" ++ showDiff d + show (TestFailed cmd file d) = "\n--- " ++ file ++ + "\n+++ " ++ cmd ++ "\n" ++ showDiff d showDiff :: [(DI, String)] -> String showDiff [] = "" |