@@ -106,6 +106,16 @@ tests = [ testGroup "basic"
106 [ natbibCitations
106 [ natbibCitations
107 , biblatexCitations
107 , biblatexCitations
110+ , let hex = ['0'..'9']++['a'..'f'] in
111+ testGroup "Character Escapes"
112+ [ "Two-character escapes" =:
113+ concat ["^^"++[i,j] | i <- hex, j <- hex] =?>
114+ para (str ['\0'..'\255'])
115+ , "One-character escapes" =:
116+ concat ["^^"++[i] | i <- hex] =?>
117+ para (str $ ['p'..'y']++['!'..'&'])
111baseCitation :: Citation
121baseCitation :: Citation