aboutsummaryrefslogtreecommitdiff
path: root/tests/Tests
diff options
context:
space:
mode:
authorAlbert Krewinkel <tarleb@moltkeplatz.de>2014-05-09 18:23:23 +0200
committerAlbert Krewinkel <tarleb@moltkeplatz.de>2014-05-09 18:23:23 +0200
commit07694b30184bcf2ed0e2998016df394f47a1996f (patch)
treeb24e06d60092d73e1ba45851e16c732d5b0c105d /tests/Tests
parent757c4f68f3f3cab99db9499936e3ae4775ebbddf (diff)
downloadpandoc-07694b30184bcf2ed0e2998016df394f47a1996f.tar.gz
Org reader: Fix parsing of blank lines within blocks
Blank lines were parsed as two newlines instead of just one. Thanks to Xiao Hanyu (@xiaohanyu) for pointing this out.
Diffstat (limited to 'tests/Tests')
-rw-r--r--tests/Tests/Readers/Org.hs9
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/Tests/Readers/Org.hs b/tests/Tests/Readers/Org.hs
index a78e8861f..87b0d0c90 100644
--- a/tests/Tests/Readers/Org.hs
+++ b/tests/Tests/Readers/Org.hs
@@ -920,5 +920,14 @@ tests =
(unlines [ "fmap id = id"
, "fmap (p . q) = (fmap p) . (fmap q)"
])))
+
+ , "Convert blank lines in blocks to single newlines" =:
+ unlines [ "#+begin_html"
+ , ""
+ , "<span>boring</span>"
+ , ""
+ , "#+end_html"
+ ] =?>
+ rawBlock "html" "\n<span>boring</span>\n\n"
]
]