From 9131d62c9b9a70829e0d938d0d201a09b2cec179 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Wed, 14 Feb 2018 13:49:56 +0300
Subject: Muse writer: use unicode quotes for quoted text

---
 test/Tests/Writers/Muse.hs |  8 ++++----
 test/writer.muse           | 16 ++++++++--------
 2 files changed, 12 insertions(+), 12 deletions(-)

(limited to 'test')

diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
index a7d6b76ba..13c457a37 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -311,8 +311,8 @@ tests = [ testGroup "block elements"
           , "superscript" =: superscript (text "foo") =?> "<sup>foo</sup>"
           , "subscript" =: subscript (text "foo") =?> "<sub>foo</sub>"
           , "smallcaps" =: smallcaps (text "foo") =?> "foo"
-          , "single quoted" =: singleQuoted (text "foo") =?> "'foo'"
-          , "double quoted" =: doubleQuoted (text "foo") =?> "\"foo\""
+          , "single quoted" =: singleQuoted (text "foo") =?> "‘foo’"
+          , "double quoted" =: doubleQuoted (text "foo") =?> "“foo”"
           -- Cite is trivial
           , testGroup "code"
             [ "simple" =: code "foo" =?> "<code>foo</code>"
@@ -370,7 +370,7 @@ tests = [ testGroup "block elements"
                     "<em>foo</em>bar"
             , "emph quoted" =:
                 para (doubleQuoted (emph (text "foo"))) =?>
-                    "\"<em>foo</em>\""
+                    "“<em>foo</em>”"
             , "strong word before" =:
                 para (text "foo" <> strong (text "bar")) =?>
                     "foo<strong>bar</strong>"
@@ -379,7 +379,7 @@ tests = [ testGroup "block elements"
                     "<strong>foo</strong>bar"
             , "strong quoted" =:
                 para (singleQuoted (strong (text "foo"))) =?>
-                    "'<strong>foo</strong>'"
+                    "‘<strong>foo</strong>’"
             ]
          ]
        ]
diff --git a/test/writer.muse b/test/writer.muse
index aed30ba4a..cd6d05432 100644
--- a/test/writer.muse
+++ b/test/writer.muse
@@ -492,16 +492,16 @@ spaces: a^b c^d, a~b c~d.
 
 * Smart quotes, ellipses, dashes
 
-"Hello," said the spider. "'Shelob' is my name."
+“Hello,” said the spider. “‘Shelob’ is my name.”
 
-'A', 'B', and 'C' are letters.
+‘A’, ‘B’, and ‘C’ are letters.
 
-'Oak,' 'elm,' and 'beech' are names of trees. So is 'pine.'
+‘Oak,’ ‘elm,’ and ‘beech’ are names of trees. So is ‘pine.’
 
-'He said, "I want to go."' Were you alive in the 70’s?
+‘He said, “I want to go.”’ Were you alive in the 70’s?
 
-Here is some quoted '<code>code</code>' and a
-"[[http://example.com/?foo=1&bar=2][quoted link]]".
+Here is some quoted ‘<code>code</code>’ and a
+“[[http://example.com/?foo=1&bar=2][quoted link]]”.
 
 Some dashes: one—two — three—four — five.
 
@@ -527,7 +527,7 @@ Ellipses…and…and….
 These shouldn’t be math:
 
  - To get the famous equation, write <code>$e = mc^2$</code>.
- - $22,000 is a <em>lot</em> of money. So is $34,000. (It worked if "lot" is
+ - $22,000 is a <em>lot</em> of money. So is $34,000. (It worked if “lot” is
    emphasized.)
  - Shoes ($20) and socks ($5).
  - Escaped <code>$</code>: $73 <em>this should be emphasized</em> 23$.
@@ -679,7 +679,7 @@ or here: <http://example.com/>
 
 * Images
 
-From "Voyage dans la Lune" by Georges Melies (1902):
+From “Voyage dans la Lune” by Georges Melies (1902):
 
 [[lalune.jpg][Voyage dans la Lune]]
 
-- 
cgit v1.2.3