From 0cfd764d27bc03b59871e477d6bfd7341f4916b0 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Fri, 24 Nov 2017 12:17:20 +0300
Subject: Muse: move inline list normalization to writer

---
 test/Tests/Readers/Muse.hs | 2 --
 test/Tests/Writers/Muse.hs | 1 +
 2 files changed, 1 insertion(+), 2 deletions(-)

(limited to 'test')

diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index 65665c1d2..3e4b89207 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -125,8 +125,6 @@ tests =
 
       , "Verbatim inside code" =: "<code><verbatim>foo</verbatim></code>" =?> para (code "<verbatim>foo</verbatim>")
 
-      , "Code normalization" =: "<code><code><</code><code>/code></code>" =?> para (code "<code></code>")
-
       , testGroup "Links"
         [ "Link without description" =:
           "[[https://amusewiki.org/]]" =?>
diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
index 562cccfe5..b5931b7db 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -300,6 +300,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" =: code "</co" <> code "de>" =?> "<code><</code><code>/code></code>"
             ]
           , testGroup "spaces"
             [ "space" =: text "a" <> space <> text "b" =?> "a b"
-- 
cgit v1.2.3