diff options
author | John MacFarlane <jgm@berkeley.edu> | 2014-12-14 13:36:34 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2014-12-14 13:36:34 -0800 |
commit | 1d3ca088f257a131e44b735a5f99e93c7d5c5cfd (patch) | |
tree | 5308620d54f06a59cce1c5c0eaedb46d0aebd06c /tests/Tests | |
parent | 2b08e32a9090442b530822f151c94fbd7d1cbbd1 (diff) | |
parent | 4d85b17fc5aa007cb2870fa9904af3fedf4a537e (diff) | |
download | pandoc-1d3ca088f257a131e44b735a5f99e93c7d5c5cfd.tar.gz |
Merge pull request #1813 from tarleb/file-links
Org reader: properly handle links to `file:target`
Diffstat (limited to 'tests/Tests')
-rw-r--r-- | tests/Tests/Readers/Org.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/tests/Tests/Readers/Org.hs b/tests/Tests/Readers/Org.hs index d1f673514..39c40cd45 100644 --- a/tests/Tests/Readers/Org.hs +++ b/tests/Tests/Readers/Org.hs @@ -4,7 +4,6 @@ module Tests.Readers.Org (tests) where import Text.Pandoc.Definition import Test.Framework import Tests.Helpers -import Tests.Arbitrary() import Text.Pandoc.Builder import Text.Pandoc import Data.List (intersperse) @@ -227,6 +226,14 @@ tests = , "for", "fnords." ]) + , "Absolute file link" =: + "[[file:///etc/passwd][passwd]]" =?> + (para $ link "file:///etc/passwd" "" "passwd") + + , "File link" =: + "[[file:target][title]]" =?> + (para $ link "target" "" "title") + , "Anchor" =: "<<anchor>> Link here later." =?> (para $ spanWith ("anchor", [], []) mempty <> |