Added Tests.Writers.ConTeXt and helpers for writer tests.

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}"
+          ]
+        ]
+