aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorNathan Gass <gass@search.ch>2011-01-12 19:13:15 +0100
committerNathan Gass <gass@search.ch>2011-01-12 19:13:15 +0100
commitdaf5444e243ad02bbe2b32a77bbc0b1d53e5cf4c (patch)
treef522ec87d3727cb98b88b0f88cb81f0dda359b27 /tests
parent6fbd446cbef4021838c7101e27a6737ca0713efd (diff)
parente9f1de639d80330b940c1b733a94bd9bf2ac8631 (diff)
downloadpandoc-daf5444e243ad02bbe2b32a77bbc0b1d53e5cf4c.tar.gz
Merge branch 'tests' of github.com:xabbu42/pandoc into tests
Diffstat (limited to 'tests')
-rw-r--r--tests/Tests/Old.hs9
1 files changed, 6 insertions, 3 deletions
diff --git a/tests/Tests/Old.hs b/tests/Tests/Old.hs
index c7dca6ec1..3c4c9572a 100644
--- a/tests/Tests/Old.hs
+++ b/tests/Tests/Old.hs
@@ -38,9 +38,12 @@ instance Show TestResult where
showDiff :: (Int,Int) -> [(DI, String)] -> String
showDiff _ [] = ""
-showDiff (l,r) ((F, ln) : ds) = printf "%4d +" l ++ ln ++ "\n" ++ showDiff (l+1,r) ds
-showDiff (l,r) ((S, ln) : ds) = printf "%4d -" r ++ ln ++ "\n" ++ showDiff (l,r+1) ds
-showDiff (l,r) ((B, _ ) : ds) = showDiff (l+1,r+1) ds
+showDiff (l,r) ((F, ln) : ds) =
+ printf "+%4d " l ++ ln ++ "\n" ++ showDiff (l+1,r) ds
+showDiff (l,r) ((S, ln) : ds) =
+ printf "-%4d " r ++ ln ++ "\n" ++ showDiff (l,r+1) ds
+showDiff (l,r) ((B, _ ) : ds) =
+ showDiff (l+1,r+1) ds
tests :: [Test]
tests = [ testGroup "markdown" [ testGroup "writer" (writerTests "markdown" ++ lhsWriterTests "markdown")