aboutsummaryrefslogtreecommitdiff
path: root/test/Tests
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-10-23 03:38:19 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-10-23 03:38:59 +0300
commit4275d58a9f8386ee978c1b20697feb6e0c0c77cc (patch)
tree76afee3b408f68c209408c54ddb64292893c5555 /test/Tests
parent1d3460c0b05ad94e412d04ed4891facc3d49deb2 (diff)
downloadpandoc-4275d58a9f8386ee978c1b20697feb6e0c0c77cc.tar.gz
Muse writer: do not insert newline before lists
Diffstat (limited to 'test/Tests')
-rw-r--r--test/Tests/Writers/Muse.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
index 5a6d9c172..57fbb3e57 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -247,6 +247,7 @@ tests = [ testGroup "block elements"
, " first inner definition :: first inner description"
, " second inner definition :: second inner description"
]
+ , "list item starting with list" =: bulletList [ bulletList [ plain $ text "foo"] ] =?> " - - foo"
]
-- Check that list is intended with one space even inside a quote
, "List inside block quote" =: blockQuote (orderedList [ plain $ text "first"