diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-01-21 11:02:59 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-01-21 11:02:59 -0800 |
| commit | d43dbc83f286bb5ace3cf64d1cba45448ce17f37 (patch) | |
| tree | b1c60d0a1cb868706607b9a0cf72002a1d5b24cb /tests/Tests/Writers | |
| parent | d0726920db29fee60f09c45be2974bf8d9eb464f (diff) | |
| download | pandoc-d43dbc83f286bb5ace3cf64d1cba45448ce17f37.tar.gz | |
More informative output on writer test failure.
Diffstat (limited to 'tests/Tests/Writers')
| -rw-r--r-- | tests/Tests/Writers/ConTeXt.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/Tests/Writers/ConTeXt.hs b/tests/Tests/Writers/ConTeXt.hs index cdc98be5d..1a887de1f 100644 --- a/tests/Tests/Writers/ConTeXt.hs +++ b/tests/Tests/Writers/ConTeXt.hs @@ -7,17 +7,17 @@ import Text.Pandoc import Text.Pandoc.Shared (removeTrailingSpace) import Tests.Helpers -inlines :: Inlines -> String -inlines = removeTrailingSpace . - writeConTeXt defaultWriterOptions . doc . plain +inlines :: Inlines -> (Inlines, String) +inlines ils = (ils, removeTrailingSpace . + writeConTeXt defaultWriterOptions . doc . plain $ ils) -blocks :: Blocks -> String -blocks = writeConTeXt defaultWriterOptions . doc +blocks :: Blocks -> (Blocks, String) +blocks bls = (bls, writeConTeXt defaultWriterOptions . doc $ bls) tests :: [Test] tests = [ testGroup "inline code" [ "with '}'" =: - inlines (code "}") --> "\\mono{\\letterclosebrace{}}" + inlines (code "}") --> "\\mono{\\letterclosebrace{x}}" , "without '}'" =: inlines (code "]") --> "\\type{]}" ] |