git.iko.soy/typeable/pandoc
on master help sign in
Added Tests.Writers.Markdown.
d324bcbJohn MacFarlane
src/Tests/Writers/Markdown.hsnew file+34
compare with master
unifiedsplit
@@ -0,0 +1,34 @@
1+{-# LANGUAGE OverloadedStrings, QuasiQuotes #-}
2+module Tests.Writers.Markdown (tests) where
3+
4+import Test.Framework
5+import Text.Pandoc.Builder
6+import Text.Pandoc
7+import Tests.Helpers
8+import Tests.Arbitrary()
9+
10+markdown :: (ToString a, ToPandoc a) => a -> String
11+markdown = writeMarkdown defaultWriterOptions . toPandoc
12+
13+{-
14+ "my test" =: X =?> Y
15+
16+is shorthand for
17+
18+ test markdown "my test" $ X =?> Y
19+
20+which is in turn shorthand for
21+
22+ test markdown "my test" (X,Y)
23+-}
24+
25+infix 5 =:
26+(=:) :: (ToString a, ToPandoc a)
27+ => String -> (a, String) -> Test
28+(=:) = test markdown
29+
30+tests :: [Test]
31+tests = [ "indented code after list"
32+ =: (orderedList [ para "one" +++ para "two" ] +++ codeBlock "test")
33+ =?> "1. one\n\n two\n\n<!-- -->\n\n test"
34+ ]