summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-01-22 16:27:14 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-01-22 16:27:14 +0300
commite9ed4832edb1a9f9c3cd7b6c670c39f513444192 (patch)
treebcbf7bbee8e0c9beddfc5ea01f6eea1f54ed27cb /test
parent288065cfd44eb02f9ef4e6c9b901e14776246dbb (diff)
Muse writer: join code with different attributes during normalization
Diffstat (limited to 'test')
-rw-r--r--test/Tests/Writers/Muse.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
index ee4c76587..51b811fa3 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -316,6 +316,7 @@ tests = [ testGroup "block elements"
, testGroup "code"
[ "simple" =: code "foo" =?> "<code>foo</code>"
, "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>"
]
, testGroup "spaces"