diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-01-19 16:05:14 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-01-20 02:14:27 +0300 |
| commit | 22b69b557ecd9a86caa8628b9a395bdd86b55035 (patch) | |
| tree | 84e8895d1e6be61da9cd181fef6b1f2ae9c91214 /test/Tests | |
| parent | 62c395dafa467ea760cdc938993ef61379e07ace (diff) | |
| download | pandoc-22b69b557ecd9a86caa8628b9a395bdd86b55035.tar.gz | |
Muse reader: fix parsing of nested definition lists
Diffstat (limited to 'test/Tests')
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 6cadd45bc..c92b395ff 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -960,9 +960,19 @@ tests = definitionList [ ("Term1", [ para "This is a first definition\nAnd it has two lines;\nno, make that three."]) , ("Term2", [ para "This is a second definition"]) ]) - , "Nested definition list" =: + , "One-line nested definition list" =: " Foo :: bar :: baz" =?> definitionList [ ("Foo", [ definitionList [ ("bar", [ para "baz" ])]])] + , "Nested definition list" =: + T.unlines + [ " First :: Second :: Third" + , " Fourth :: Fifth :: Sixth" + , " Seventh :: Eighth" + ] =?> + definitionList [ ("First", [ definitionList [ ("Second", [ para "Third" ]), + ("Fourth", [ definitionList [ ("Fifth", [ para "Sixth"] ) ] ] ) ] ] ) + , ("Seventh", [ para "Eighth" ]) + ] , "Two blank lines separate definition lists" =: T.unlines [ " First :: list" |