diff options
| author | bucklereed <bucklereed@gmail.com> | 2017-10-06 12:17:50 +0100 |
|---|---|---|
| committer | bucklereed <bucklereed@gmail.com> | 2017-10-06 12:17:50 +0100 |
| commit | c359bdd9b127465d2374448dd51ba68d5ebce75a (patch) | |
| tree | c93e1419ddb966c3e78c6c0a0e89cd33136e8c99 /test | |
| parent | 23eaf2a74f686f0af95544047020bff5fcb6ab4f (diff) | |
LaTeX reader: read polyglossia/babel \text($LANG){...}.
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/LaTeX.hs | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/test/Tests/Readers/LaTeX.hs b/test/Tests/Readers/LaTeX.hs index 4effe26e8..1486ba415 100644 --- a/test/Tests/Readers/LaTeX.hs +++ b/test/Tests/Readers/LaTeX.hs @@ -166,6 +166,26 @@ tests = [ testGroup "basic" "\\Rn {13}ok" =?> para (str "xiiiok") ] + , testGroup "polyglossia language spans" + [ "french" =: + "hello \\textfrench{bonjour}" =?> + para (str "hello" <> space <> spanWith ("", [], [("lang", "fr")]) (str "bonjour")) + , "nested" =: + "\\textfrench{quelle c'est \\textlatin{primus}?}" =?> + para (spanWith ("", [], [("lang", "fr")]) $ + str "quelle" <> space <> str "c\8217est" <> space <> + spanWith ("", [], [("lang", "la")]) (str "primus") <> str "?") + , "with formatting" =: + "\\textgerman{wie \\emph{spaet} ist es?}" =?> + para (spanWith ("", [], [("lang", "de")]) $ + str "wie" <> space <> emph (str "spaet") <> space <> str "ist" <> space <> str "es?") + , "language options" =: + "\\textgerman[variant=swiss]{hoechdeutsche}" =?> + para (spanWith ("", [], [("lang", "de-CH")]) $ str "hoechdeutsche") + , "unknown option fallback" =: + "\\textgerman[variant=moon]{ueberhoechdeutsche}" =?> + para (spanWith ("", [], [("lang", "de")]) $ str "ueberhoechdeutsche") + ] ] baseCitation :: Citation |