diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-07 20:58:12 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-07 20:58:49 -0800 |
| commit | 8ff81dc9caaff9e5dffbbe9148dfcf547c27d147 (patch) | |
| tree | 1c43c0ba9f7908882649f9e5890fa067e07a34fe /tests/Tests/Helpers.hs | |
| parent | 1a9193c30d0443c6246484f182ad685e569797a4 (diff) | |
Updated tests for tight/loose lists.
Taking into account new context/latex output, and fixing
some bugs in the test suite Tests.Helpers and Tests.Writers.ConTeXt.
(We had the wrong order of expected/actual in the diff output.)
Diffstat (limited to 'tests/Tests/Helpers.hs')
| -rw-r--r-- | tests/Tests/Helpers.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Tests/Helpers.hs b/tests/Tests/Helpers.hs index 9e00af456..e3148c260 100644 --- a/tests/Tests/Helpers.hs +++ b/tests/Tests/Helpers.hs @@ -62,8 +62,8 @@ test fn name (input, expected) = actual' = toString $ fn input expected' = toString expected diff = getDiff (lines expected') (lines actual') - expected'' = unlines $ map vividize [Second x | Second x <- diff] - actual'' = unlines $ map vividize [First x | First x <- diff] + expected'' = unlines $ map vividize [First x | First x <- diff] + actual'' = unlines $ map vividize [Second x | Second x <- diff] dashes "" = replicate 72 '-' dashes x = replicate (72 - length x - 5) '-' ++ " " ++ x ++ " ---" |