diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-16 11:40:18 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-16 11:40:18 +0300 |
| commit | f39931fd6c86a4bf7a651f9e2f5667bfad99bcca (patch) | |
| tree | c56545b122cd66c52b76c7a313b777eb89a5acc7 /test | |
| parent | 8ca012f139d09d77a878e049cf9972efc026674e (diff) | |
| download | pandoc-f39931fd6c86a4bf7a651f9e2f5667bfad99bcca.tar.gz | |
Muse writer: escape definition list terms starting with list markers
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Writers/Muse.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs index 44fdd5b7e..ff66d1d65 100644 --- a/test/Tests/Writers/Muse.hs +++ b/test/Tests/Writers/Muse.hs @@ -121,6 +121,15 @@ tests = [ testGroup "block elements" , " <verbatim></verbatim> foo :: second description" , " <verbatim></verbatim> > bar :: third description" ] + , "definition list terms starting with list markers" =: + definitionList [ (text "first definition", [plain $ text "first description"]) + , (str "-", [plain $ text "second description"]) + , (str "1.", [plain $ text "third description"]) + ] + =?> unlines [ " first definition :: first description" + , " <verbatim></verbatim>- :: second description" + , " <verbatim></verbatim>1. :: third description" + ] ] -- Test that lists of the same type and style are separated with two blanklines , testGroup "sequential lists" |