aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-02-05 00:25:31 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-02-05 00:25:31 +0300
commit3b667c54eaa76669357b76db0641851002c58b01 (patch)
tree318518dd09bb0a41a5635a44d2b1ce8c368403a0
parentca4a61a348efcdcb3418935f45f152c291ec75a0 (diff)
downloadpandoc-3b667c54eaa76669357b76db0641851002c58b01.tar.gz
Muse reader: test that lists can be separated with two blanklines after blockquote
Existing tests only checked this for paragraphs.
-rw-r--r--test/Tests/Readers/Muse.hs27
1 files changed, 27 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index d93704e08..5cdc2c302 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -902,6 +902,33 @@ tests =
, " - Baz"
] =?>
bulletList [ para "Foo" <> para "bar" ] <> bulletList [ para "Baz" ]
+ , "No blank line after blockquote" =:
+ T.unlines
+ [ " - <quote>"
+ , " foo"
+ , " </quote>"
+ , " - bar"
+ ] =?>
+ bulletList [ blockQuote $ para "foo", para "bar" ]
+ , "One blank line after blockquote" =:
+ T.unlines
+ [ " - <quote>"
+ , " foo"
+ , " </quote>"
+ , ""
+ , " - bar"
+ ] =?>
+ bulletList [ blockQuote $ para "foo", para "bar" ]
+ , "Two blank lines after blockquote" =:
+ T.unlines
+ [ " - <quote>"
+ , " foo"
+ , " </quote>"
+ , ""
+ , ""
+ , " - bar"
+ ] =?>
+ bulletList [ blockQuote $ para "foo" ] <> bulletList [ para "bar" ]
]
-- Test that definition list requires a leading space.
-- Emacs Muse does not require a space, we follow Amusewiki here.