diff options
author | John MacFarlane <jgm@berkeley.edu> | 2012-07-26 08:37:36 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2012-07-26 08:37:36 -0700 |
commit | 45e4c123a45b83d666088967c25b91cf9bb5db72 (patch) | |
tree | b3662354ccacd88b0d9238b3d0c049c4c876abc4 /src/Tests/Writers/Markdown.hs | |
parent | 3053267280bfd7b255f3bf47480e4a8a97ec2915 (diff) | |
download | pandoc-45e4c123a45b83d666088967c25b91cf9bb5db72.tar.gz |
Moved tests to tests/, modified cabal file so lib isn't recompiled.
Diffstat (limited to 'src/Tests/Writers/Markdown.hs')
-rw-r--r-- | src/Tests/Writers/Markdown.hs | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/src/Tests/Writers/Markdown.hs b/src/Tests/Writers/Markdown.hs deleted file mode 100644 index d90dc83b1..000000000 --- a/src/Tests/Writers/Markdown.hs +++ /dev/null @@ -1,34 +0,0 @@ -{-# LANGUAGE OverloadedStrings, QuasiQuotes #-} -module Tests.Writers.Markdown (tests) where - -import Test.Framework -import Text.Pandoc.Builder -import Text.Pandoc -import Tests.Helpers -import Tests.Arbitrary() - -markdown :: (ToString a, ToPandoc a) => a -> String -markdown = writeMarkdown defaultWriterOptions . toPandoc - -{- - "my test" =: X =?> Y - -is shorthand for - - test markdown "my test" $ X =?> Y - -which is in turn shorthand for - - test markdown "my test" (X,Y) --} - -infix 4 =: -(=:) :: (ToString a, ToPandoc a) - => String -> (a, String) -> Test -(=:) = test markdown - -tests :: [Test] -tests = [ "indented code after list" - =: (orderedList [ para "one" <> para "two" ] <> codeBlock "test") - =?> "1. one\n\n two\n\n<!-- -->\n\n test" - ] |