From d5b98c8c6ec13556911876ac5632efb63a1ce40d Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 14 Apr 2018 10:38:21 -0700 Subject: Man writer: Don't escape U+2019 as '. Closes #4550. --- test/Tests/Writers/Plain.hs.orig | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 test/Tests/Writers/Plain.hs.orig (limited to 'test/Tests/Writers/Plain.hs.orig') 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" + ] -- cgit v1.2.3