diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2019-07-13 20:54:26 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2019-07-14 18:22:52 +0300 |
| commit | 0713cb65bc6fcea0c950d1afcdfdce412a8b56d4 (patch) | |
| tree | 2b611ce16095dcf84db75c75eda22e1762ba71ef /test/Tests/Writers | |
| parent | f6c92c7523a4070f13fbf193ef80ad7ac63f6693 (diff) | |
| download | pandoc-0713cb65bc6fcea0c950d1afcdfdce412a8b56d4.tar.gz | |
Muse: add RTL support
Closes #5551
Diffstat (limited to 'test/Tests/Writers')
| -rw-r--r-- | test/Tests/Writers/Muse.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs index 7a07f39b7..ee61d18e0 100644 --- a/test/Tests/Writers/Muse.hs +++ b/test/Tests/Writers/Muse.hs @@ -620,6 +620,13 @@ tests = [ testGroup "block elements" , "adjacent spans" =: spanWith ("", ["syllable"], []) (str "wa") <> spanWith ("", ["syllable"], []) (str "ter") =?> "<class name=\"syllable\">wa</class><class name=\"syllable\">ter</class>" + , testGroup "RTL" + [ "RTL span" =: spanWith ("",[],[("dir", "rtl")]) (text "foo bar") =?> "<<<foo bar>>>" + , "LTR span" =: spanWith ("",[],[("dir", "ltr")]) (text "foo bar") =?> ">>>foo bar<<<" + , "RTL span with a class" =: spanWith ("",["foobar"],[("dir", "rtl")]) (text "foo bar") =?> "<class name=\"foobar\"><<<foo bar>>></class>" + , "LTR span with a class" =: spanWith ("",["foobar"],[("dir", "ltr")]) (text "foo bar") =?> "<class name=\"foobar\">>>>foo bar<<<</class>" + , "Escape <<< and >>>" =: plain (text "<<< foo bar >>>") =?> "<verbatim><<<</verbatim> foo bar <verbatim>>>></verbatim>" + ] , testGroup "combined" [ "emph word before" =: para ("foo" <> emph "bar") =?> |