summaryrefslogtreecommitdiff
path: root/tests/Tests/Readers
diff options
context:
space:
mode:
authorAlbert Krewinkel <tarleb@moltkeplatz.de>2014-04-24 17:42:01 +0200
committerAlbert Krewinkel <tarleb@moltkeplatz.de>2014-04-24 17:55:24 +0200
commitc128daba9dee096ce0e78b81a381f43337b74285 (patch)
treec16740fc9ef286233043b721a256c189a76ccd88 /tests/Tests/Readers
parentec24f9761c71961821c180d3f6eeb3b5c08aaebf (diff)
Org reader: Recognize plain and angle links
This adds support for plain links (like http://zeitlens.com) and angle links (like <http://moltkeplatz.de>).
Diffstat (limited to 'tests/Tests/Readers')
-rw-r--r--tests/Tests/Readers/Org.hs14
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/Tests/Readers/Org.hs b/tests/Tests/Readers/Org.hs
index f62b73ce4..ed774f527 100644
--- a/tests/Tests/Readers/Org.hs
+++ b/tests/Tests/Readers/Org.hs
@@ -188,6 +188,20 @@ tests =
, "Image link" =:
"[[sunset.png][dusk.svg]]" =?>
(para $ link "sunset.png" "" (image "dusk.svg" "" ""))
+
+ , "Plain link" =:
+ "Posts on http://zeitlens.com/ can be funny at times." =?>
+ (para $ spcSep [ "Posts", "on"
+ , link "http://zeitlens.com/" "" "http://zeitlens.com/"
+ , "can", "be", "funny", "at", "times."
+ ])
+
+ , "Angle link" =:
+ "Look at <http://moltkeplatz.de> for fnords." =?>
+ (para $ spcSep [ "Look", "at"
+ , link "http://moltkeplatz.de" "" "http://moltkeplatz.de"
+ , "for", "fnords."
+ ])
]
, testGroup "Meta Information" $