aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2017-07-21 11:04:13 +0300
committerJohn MacFarlane <jgm@berkeley.edu>2017-07-21 10:04:13 +0200
commit335a1c7f4867f7cd3575f07b5efa75712d59d1ac (patch)
tree9849b9e1eb01d5d5eedfa60d32c4c7a336eb0fb8 /test
parent7191fe1f29f2f8b45f9be7e0f8bc9ed889e431d2 (diff)
downloadpandoc-335a1c7f4867f7cd3575f07b5efa75712d59d1ac.tar.gz
Muse reader: fix reading of lists inside tags (#3802)
Diffstat (limited to 'test')
-rw-r--r--test/Tests/Readers/Muse.hs28
1 files changed, 28 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index fe0a59992..a069bb972 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -314,5 +314,33 @@ tests =
, para "* Bar"
]
]
+ , "List inside a tag" =:
+ T.unlines
+ [ "<quote>"
+ , " 1. First"
+ , ""
+ , " 2. Second"
+ , ""
+ , " 3. Third"
+ , "</quote>"
+ ] =?>
+ blockQuote (orderedListWith (1, Decimal, Period) [ para "First"
+ , para "Second"
+ , para "Third"
+ ])
+ -- Amusewiki requires block tags to be on separate lines,
+ -- but Emacs Muse allows them to be on the same line as contents.
+ , "List inside an inline tag" =:
+ T.unlines
+ [ "<quote> 1. First"
+ , ""
+ , " 2. Second"
+ , ""
+ , " 3. Third</quote>"
+ ] =?>
+ blockQuote (orderedListWith (1, Decimal, Period) [ para "First"
+ , para "Second"
+ , para "Third"
+ ])
]
]