From 1884ee60838ffeac090cafc9cf7fe2e44ad33636 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Wed, 7 Mar 2018 20:10:19 +0300
Subject: Muse writer: replace smallcaps with emphasis before normalization

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

(limited to 'test')

diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
index bbcb3dc61..509c20401 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -328,6 +328,7 @@ tests = [ testGroup "block elements"
           , "superscript" =: superscript (text "foo") =?> "<sup>foo</sup>"
           , "subscript" =: subscript (text "foo") =?> "<sub>foo</sub>"
           , "smallcaps" =: smallcaps (text "foo") =?> "<em>foo</em>"
+          , "smallcaps near emphasis" =: emph (str "foo") <> smallcaps (str "bar") =?> "<em>foobar</em>"
           , "single quoted" =: singleQuoted (text "foo") =?> "‘foo’"
           , "double quoted" =: doubleQuoted (text "foo") =?> "“foo”"
           -- Cite is trivial
-- 
cgit v1.2.3