From 251ce0738da4ee8c74b84649f5eb86321c56b82c Mon Sep 17 00:00:00 2001 From: Nikolay Yakimov Date: Mon, 13 Apr 2015 03:22:39 +0300 Subject: LaTeX Reader: Test for `^^` character escapes --- tests/Tests/Readers/LaTeX.hs | 10 ++++++++++ 1 file changed, 10 insertions(+) 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 -- cgit v1.2.3