diff options
Diffstat (limited to 'test/Tests/Writers/AsciiDoc.hs.orig')
| -rw-r--r-- | test/Tests/Writers/AsciiDoc.hs.orig | 56 |
1 files changed, 0 insertions, 56 deletions
diff --git a/test/Tests/Writers/AsciiDoc.hs.orig b/test/Tests/Writers/AsciiDoc.hs.orig deleted file mode 100644 index 6b97c0761..000000000 --- a/test/Tests/Writers/AsciiDoc.hs.orig +++ /dev/null @@ -1,56 +0,0 @@ -module Tests.Writers.AsciiDoc (tests) where - -import Data.Text (unpack) -import Test.Tasty -import Tests.Helpers -import Text.Pandoc -import Text.Pandoc.Arbitrary () -import Text.Pandoc.Builder - -asciidoc :: (ToPandoc a) => a -> String -asciidoc = unpack . purely (writeAsciiDoc def{ writerWrapText = WrapNone }) . toPandoc - -tests :: [TestTree] -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" - , "" - , "|=====" - ] - ] - ] |