diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-06-28 15:32:53 +0300 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-06-28 14:32:53 +0200 |
| commit | 79cc56726c7e876314c7c21f5bb5f65084e7d8b7 (patch) | |
| tree | 1632cc2847edbb81f36a93778046bd0a4b87fbef /test/Tests/Readers | |
| parent | cd690d04015431e89feefa7f68e9609efab1f16b (diff) | |
Muse reader: parse indented blockquotes (#3769)
Diffstat (limited to 'test/Tests/Readers')
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 3d7baf8f0..fe0a59992 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -102,7 +102,12 @@ tests = , "5 dashes is a horizontal rule" =: "-----" =?> horizontalRule , "4 dashes with spaces is a horizontal rule" =: "---- " =?> horizontalRule ] - , "Quote" =: "<quote>Hello, world</quote>" =?> blockQuote (para $ text "Hello, world") + , "Quote tag" =: "<quote>Hello, world</quote>" =?> blockQuote (para $ text "Hello, world") + , "Quote" =: " This is a quotation\n" =?> blockQuote (para $ text "This is a quotation") + , "Multiline quote" =: T.unlines [ " This is a quotation" + , " with a continuation" + ] + =?> blockQuote (para $ text "This is a quotation with a continuation") , "Center" =: "<center>Hello, world</center>" =?> para (text "Hello, world") , "Right" =: "<right>Hello, world</right>" =?> para (text "Hello, world") , testGroup "Comments" |