aboutsummaryrefslogtreecommitdiff
path: root/test/Tests/Readers/Muse.hs
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-10-05 11:58:41 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-10-05 11:58:41 +0300
commit5f7799ac8f359fbb7896037a79f2abb61be2fd2c (patch)
tree8f2a4cb1e7bd78115064fdaaa1c44bb72889bfaa /test/Tests/Readers/Muse.hs
parent537d917988d39401d855de003a06728711c81632 (diff)
downloadpandoc-5f7799ac8f359fbb7896037a79f2abb61be2fd2c.tar.gz
Muse reader: allow table caption to contain "+"
Diffstat (limited to 'test/Tests/Readers/Muse.hs')
-rw-r--r--test/Tests/Readers/Muse.hs8
1 files changed, 8 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index 8393e45d9..958a74915 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -857,6 +857,14 @@ tests =
[plain "Foo", plain "bar", plain "baz"]
[[plain "First", plain "row", plain "here"],
[plain "Second", plain "row", plain "there"]]
+ , "Table caption with +" =:
+ T.unlines
+ [ "Foo | bar"
+ , "|+ Table + caption +|"
+ ] =?>
+ table (text "Table + caption") (replicate 2 (AlignDefault, 0.0))
+ []
+ [[plain "Foo", plain "bar"]]
, "Caption without table" =:
"|+ Foo bar baz +|" =?>
table (text "Foo bar baz") [] [] []