diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-02-28 14:26:11 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-02-28 14:26:11 +0300 |
| commit | 1d57f7a641e9c66d56cab20905a602202336fbad (patch) | |
| tree | 6149c423a2ccac8dfd3e75c7d366c3f00f4842fc /test/Tests | |
| parent | a7ac590b083f98bc6c98530077f0ed78e232bc0d (diff) | |
Muse writer: remove empty strings during inline normalization
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 7aee36217..bbf833563 100644 --- a/test/Tests/Writers/Muse.hs +++ b/test/Tests/Writers/Muse.hs @@ -319,6 +319,7 @@ tests = [ testGroup "block elements" , "escape tag" =: code "<code>foo = bar</code> baz" =?> "<code><code>foo = bar<</code><code>/code> baz</code>" , "normalization with attributes" =: codeWith ("",["haskell"],[]) "foo" <> code "bar" =?> "<code>foobar</code>" , "normalization" =: code "</co" <> code "de>" =?> "<code><</code><code>/code></code>" + , "normalization with empty string" =: code "</co" <> str "" <> code "de>" =?> "<code><</code><code>/code></code>" ] , testGroup "spaces" [ "space" =: text "a" <> space <> text "b" =?> "a b" |