diff options
Diffstat (limited to 'tests/Tests/Writers')
-rw-r--r-- | tests/Tests/Writers/ConTeXt.hs | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/tests/Tests/Writers/ConTeXt.hs b/tests/Tests/Writers/ConTeXt.hs new file mode 100644 index 000000000..cdc98be5d --- /dev/null +++ b/tests/Tests/Writers/ConTeXt.hs @@ -0,0 +1,29 @@ +{-# LANGUAGE OverloadedStrings #-} +module Tests.Writers.ConTeXt (tests) where + +import Test.Framework +import Text.Pandoc.Builder +import Text.Pandoc +import Text.Pandoc.Shared (removeTrailingSpace) +import Tests.Helpers + +inlines :: Inlines -> String +inlines = removeTrailingSpace . + writeConTeXt defaultWriterOptions . doc . plain + +blocks :: Blocks -> String +blocks = writeConTeXt defaultWriterOptions . doc + +tests :: [Test] +tests = [ testGroup "inline code" + [ "with '}'" =: + inlines (code "}") --> "\\mono{\\letterclosebrace{}}" + , "without '}'" =: + inlines (code "]") --> "\\type{]}" + ] + , testGroup "headers" + [ "level 1" =: + blocks (header 1 "My header") --> "\\subject{My header}" + ] + ] + |