diff options
| author | Nikolay Yakimov <root@livid.pp.ru> | 2015-04-13 03:22:39 +0300 |
|---|---|---|
| committer | Nikolay Yakimov <root@livid.pp.ru> | 2015-04-13 03:22:39 +0300 |
| commit | 251ce0738da4ee8c74b84649f5eb86321c56b82c (patch) | |
| tree | 8458877e9b018dc488dc36ef81795461ae673caf /tests | |
| parent | b92d49092f0ec18a7e14af398287fb9932cad6a5 (diff) | |
LaTeX Reader: Test for `^^` character escapes
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Tests/Readers/LaTeX.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/Tests/Readers/LaTeX.hs b/tests/Tests/Readers/LaTeX.hs index 38363af59..b72d707e7 100644 --- a/tests/Tests/Readers/LaTeX.hs +++ b/tests/Tests/Readers/LaTeX.hs @@ -106,6 +106,16 @@ tests = [ testGroup "basic" [ natbibCitations , biblatexCitations ] + + , let hex = ['0'..'9']++['a'..'f'] in + testGroup "Character Escapes" + [ "Two-character escapes" =: + concat ["^^"++[i,j] | i <- hex, j <- hex] =?> + para (str ['\0'..'\255']) + , "One-character escapes" =: + concat ["^^"++[i] | i <- hex] =?> + para (str $ ['p'..'y']++['!'..'&']) + ] ] baseCitation :: Citation |