diff options
Diffstat (limited to 'test/Tests/Writers')
| -rw-r--r-- | test/Tests/Writers/Muse.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs index 56fa22955..1218bc7c9 100644 --- a/test/Tests/Writers/Muse.hs +++ b/test/Tests/Writers/Muse.hs @@ -405,6 +405,9 @@ tests = [ testGroup "block elements" =?> "#anchor Foo bar" , "span with class and anchor" =: spanWith ("anchor", ["foo"], []) (text "bar") =?> "#anchor <class name=\"foo\">bar</class>" + , "adjacent spans" =: spanWith ("", ["syllable"], []) (str "wa") <> + spanWith ("", ["syllable"], []) (str "ter") + =?> "<class name=\"syllable\">wa</class><class name=\"syllable\">ter</class>" , testGroup "combined" [ "emph word before" =: para (text "foo" <> emph (text "bar")) =?> |