diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-09-11 01:36:11 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-09-11 01:36:11 +0300 |
| commit | 00b2b0feb660bbe4ec50b3a33131e75cf0341e4c (patch) | |
| tree | 661475e8c429bcfe9d8b7e0b159a242d4db026b5 /test/Tests | |
| parent | c2b97c4b8026694d9c59d7b9f6d333d204f669ce (diff) | |
| download | pandoc-00b2b0feb660bbe4ec50b3a33131e75cf0341e4c.tar.gz | |
Muse writer: normalize inline list before testing if tags should be used
Diffstat (limited to 'test/Tests')
| -rw-r--r-- | test/Tests/Writers/Muse.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs index c747578bf..776884760 100644 --- a/test/Tests/Writers/Muse.hs +++ b/test/Tests/Writers/Muse.hs @@ -366,6 +366,7 @@ tests = [ testGroup "block elements" , "strong empty string" =: strong (str "") =?> "<strong></strong>" , "strong emphasized empty string" =: strong (emph (str "")) =?> "**<em></em>**" , "emphasized strong empty string" =: emph (strong (str "")) =?> "*<strong></strong>*" + , "emphasized space between empty strings" =: emph (str "" <> space <> str "") =?> "<em> </em>" , "strong" =: strong (text "foo") =?> "**foo**" , "strong inside word" =: text "foo" <> strong (text "bar") <> text "baz" =?> "foo<strong>bar</strong>baz" , "strong emphasis" =: strong (emph (text "foo")) =?> "***foo***" |