diff options
author | John MacFarlane <jgm@berkeley.edu> | 2014-04-13 14:37:28 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2014-04-13 14:37:28 -0700 |
commit | 857fcff7d61100e0ce0872b7e2318c3ad0f9e2fb (patch) | |
tree | 55f1a3011480cf7f69c4cb909eb6a57fee78aeba /tests/Tests | |
parent | 86b4da9dec0f42f2571bb249a082f9ac41fe568d (diff) | |
parent | f22ce4ff283ac48a50d999ee5fad56ac1e4d1dce (diff) | |
download | pandoc-857fcff7d61100e0ce0872b7e2318c3ad0f9e2fb.tar.gz |
Merge pull request #1240 from neilmayhew/master
Docbook output of Line Blocks
Diffstat (limited to 'tests/Tests')
-rw-r--r-- | tests/Tests/Writers/Docbook.hs | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/tests/Tests/Writers/Docbook.hs b/tests/Tests/Writers/Docbook.hs new file mode 100644 index 000000000..e815b4f5a --- /dev/null +++ b/tests/Tests/Writers/Docbook.hs @@ -0,0 +1,52 @@ +{-# LANGUAGE OverloadedStrings #-} +module Tests.Writers.Docbook (tests) where + +import Test.Framework +import Text.Pandoc.Builder +import Text.Pandoc +import Tests.Helpers +import Tests.Arbitrary() + +docbook :: (ToString a, ToPandoc a) => a -> String +docbook = writeDocbook def{ writerWrapText = False } . toPandoc + +{- + "my test" =: X =?> Y + +is shorthand for + + test docbook "my test" $ X =?> Y + +which is in turn shorthand for + + test docbook "my test" (X,Y) +-} + +infix 4 =: +(=:) :: (ToString a, ToPandoc a) + => String -> (a, String) -> Test +(=:) = test docbook + +lineblock :: Blocks +lineblock = para ("some text" <> linebreak <> + "and more lines" <> linebreak <> + "and again") +lineblock_out :: String +lineblock_out = "<literallayout>some text\n" ++ + "and more lines\n" ++ + "and again</literallayout>" + +tests :: [Test] +tests = [ testGroup "line blocks" + [ "none" =: para "This is a test" + =?> "<para>\n This is a test\n</para>" + , "basic" =: lineblock + =?> lineblock_out + , "blockquote" =: blockQuote lineblock + =?> ("<blockquote>\n" ++ lineblock_out ++ "\n</blockquote>") + , "footnote" =: para ("This is a test" <> note lineblock <> " of footnotes") + =?> ("<para>\n This is a test<footnote>\n" ++ + lineblock_out ++ + "\n </footnote> of footnotes\n</para>") + ] + ] |