diff options
author | John MacFarlane <jgm@berkeley.edu> | 2018-04-14 10:38:21 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2018-04-14 10:42:05 -0700 |
commit | d5b98c8c6ec13556911876ac5632efb63a1ce40d (patch) | |
tree | 07b56109442090643dabc85e6023ffe3c1a7d93d /test/Tests/Writers/Plain.hs.orig | |
parent | 488320faac36bbe9add43f2947afe16444ab23a6 (diff) | |
download | pandoc-d5b98c8c6ec13556911876ac5632efb63a1ce40d.tar.gz |
Man writer: Don't escape U+2019 as '.
Closes #4550.
Diffstat (limited to 'test/Tests/Writers/Plain.hs.orig')
-rw-r--r-- | test/Tests/Writers/Plain.hs.orig | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/test/Tests/Writers/Plain.hs.orig b/test/Tests/Writers/Plain.hs.orig new file mode 100644 index 000000000..ab09bca26 --- /dev/null +++ b/test/Tests/Writers/Plain.hs.orig @@ -0,0 +1,21 @@ +{-# LANGUAGE OverloadedStrings #-} +module Tests.Writers.Plain (tests) where + +import Test.Tasty +import Tests.Helpers +import Text.Pandoc +import Text.Pandoc.Arbitrary () +import Text.Pandoc.Builder + + +infix 4 =: +(=:) :: (ToString a, ToPandoc a) + => String -> (a, String) -> TestTree +(=:) = test (purely (writePlain def) . toPandoc) + + +tests :: [TestTree] +tests = [ "strongly emphasized text to uppercase" + =: strong "Straße" + =?> "STRASSE" + ] |