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/Org.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/Org.hs.orig')
-rw-r--r-- | test/Tests/Writers/Org.hs.orig | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/test/Tests/Writers/Org.hs.orig b/test/Tests/Writers/Org.hs.orig new file mode 100644 index 000000000..9cbe360da --- /dev/null +++ b/test/Tests/Writers/Org.hs.orig @@ -0,0 +1,25 @@ +{-# LANGUAGE OverloadedStrings #-} +module Tests.Writers.Org (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 (writeOrg def . toPandoc)) + +tests :: [TestTree] +tests = [ testGroup "links" + -- See http://orgmode.org/manual/Internal-links.html#Internal-links + [ "simple link" + =: link "/url" "" "foo" + =?> "[[/url][foo]]" + , "internal link to anchor" + =: link "#my-custom-id" "" "#my-custom-id" + =?> "[[#my-custom-id]]" + ] + ] |