diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-02-20 20:52:00 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-02-20 20:52:00 +0100 |
| commit | ce8226f1a7d64da56117d2f7f351e06225a84614 (patch) | |
| tree | 9f2d716df0230f5f17372f19b8718dcf86039fd9 /test/Tests/Writers/AsciiDoc.hs | |
| parent | e86e44b98e592d5a5e4c6b43d9b57b195f091ed9 (diff) | |
| parent | 12d96508c62189b4ff8c8b797d34cc9ef177f5ee (diff) | |
| download | pandoc-ce8226f1a7d64da56117d2f7f351e06225a84614.tar.gz | |
Merge commit '9e52ac6bb02afd7b4ed5dad61021a1fa33051203' as 'data/templates'
Diffstat (limited to 'test/Tests/Writers/AsciiDoc.hs')
| -rw-r--r-- | test/Tests/Writers/AsciiDoc.hs | 55 |
1 files changed, 0 insertions, 55 deletions
diff --git a/test/Tests/Writers/AsciiDoc.hs b/test/Tests/Writers/AsciiDoc.hs deleted file mode 100644 index 7103b838b..000000000 --- a/test/Tests/Writers/AsciiDoc.hs +++ /dev/null @@ -1,55 +0,0 @@ -module Tests.Writers.AsciiDoc (tests) where - -import Test.Framework -import Text.Pandoc.Builder -import Text.Pandoc -import Tests.Helpers -import Text.Pandoc.Arbitrary() - -asciidoc :: (ToPandoc a) => a -> String -asciidoc = purely (writeAsciiDoc def{ writerWrapText = WrapNone }) . toPandoc - -tests :: [Test] -tests = [ testGroup "emphasis" - [ test asciidoc "emph word before" $ - para (text "foo" <> emph (text "bar")) =?> - "foo__bar__" - , test asciidoc "emph word after" $ - para (emph (text "foo") <> text "bar") =?> - "__foo__bar" - , test asciidoc "emph quoted" $ - para (doubleQuoted (emph (text "foo"))) =?> - "``__foo__''" - , test asciidoc "strong word before" $ - para (text "foo" <> strong (text "bar")) =?> - "foo**bar**" - , test asciidoc "strong word after" $ - para (strong (text "foo") <> text "bar") =?> - "**foo**bar" - , test asciidoc "strong quoted" $ - para (singleQuoted (strong (text "foo"))) =?> - "`**foo**'" - ] - , testGroup "tables" - [ test asciidoc "empty cells" $ - simpleTable [] [[mempty],[mempty]] =?> unlines - [ "[cols=\"\",]" - , "|====" - , "|" - , "|" - , "|====" - ] - , test asciidoc "multiblock cells" $ - simpleTable [] [[para (text "Para 1") <> para (text "Para 2")]] - =?> unlines - [ "[cols=\"\",]" - , "|=====" - , "a|" - , "Para 1" - , "" - , "Para 2" - , "" - , "|=====" - ] - ] - ] |