diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-02-14 13:49:56 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-02-15 14:33:25 +0300 |
| commit | 9131d62c9b9a70829e0d938d0d201a09b2cec179 (patch) | |
| tree | 1197d336d255ad663e29d124a7736d56516720f9 /test/Tests/Writers/Muse.hs | |
| parent | 6dcb9744237be713f4ef94017a6b68fc0cfddb73 (diff) | |
Muse writer: use unicode quotes for quoted text
Diffstat (limited to 'test/Tests/Writers/Muse.hs')
| -rw-r--r-- | test/Tests/Writers/Muse.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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>’" ] ] ] |