diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2014-12-14 18:25:31 +0100 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2014-12-14 21:30:10 +0100 |
| commit | 4d85b17fc5aa007cb2870fa9904af3fedf4a537e (patch) | |
| tree | 070f4c64cf9d1d7b80e127522ad729172144d81c /tests | |
| parent | 4ffa70970dc7219aa71c137c728280b7460ed604 (diff) | |
| download | pandoc-4d85b17fc5aa007cb2870fa9904af3fedf4a537e.tar.gz | |
Org reader: properly handle links to `file:target`
Org links like `[[file:target][title]]` were not handled correctly,
parsing the link target verbatim. The org reader is changed such that
the leading `file:` is dropped from the link target.
This is related to issues #756 and #1812.
Diffstat (limited to '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 <> |