From d58b961a6d83a9f3a815d7aa281c692281954a00 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Sat, 24 Mar 2018 23:51:38 +0300
Subject: Muse writer: do not join Span's doing normalization

Separate spans may have different semantics, for example if spans indicate syllables in a word.
---
 test/Tests/Writers/Muse.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'test')

diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
index 56fa22955..1218bc7c9 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -405,6 +405,9 @@ tests = [ testGroup "block elements"
                                =?> "#anchor Foo bar"
           , "span with class and anchor" =: spanWith ("anchor", ["foo"], []) (text "bar")
                                          =?> "#anchor <class name=\"foo\">bar</class>"
+          , "adjacent spans" =: spanWith ("", ["syllable"], []) (str "wa") <>
+                                spanWith ("", ["syllable"], []) (str "ter")
+                             =?> "<class name=\"syllable\">wa</class><class name=\"syllable\">ter</class>"
           , testGroup "combined"
             [ "emph word before" =:
                 para (text "foo" <> emph (text "bar")) =?>
-- 
cgit v1.2.3