From e9ed4832edb1a9f9c3cd7b6c670c39f513444192 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Mon, 22 Jan 2018 16:27:14 +0300
Subject: Muse writer: join code with different attributes during normalization

---
 test/Tests/Writers/Muse.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'test/Tests')

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"
-- 
cgit v1.2.3