More Unicode education by test fixing
authorBryan O'Sullivan <bos@serpentine.com>
Sun, 21 May 2017 05:08:36 +0000 (22:08 -0700)
committerBryan O'Sullivan <bos@serpentine.com>
Sun, 21 May 2017 05:08:36 +0000 (22:08 -0700)
tests/Tests/Properties.hs

index 94a8705..7db17e0 100644 (file)
@@ -337,7 +337,10 @@ t_toTitle_1stNotLower = and . notLow . T.toTitle . T.filter stable
           -- Surprise! The Spanish/Portuguese ordinal indicators changed
           -- from category Ll (letter, lowercase) to Lo (letter, other)
           -- in Unicode 7.0
-          stable c = c /= '\170' && c /= '\186'
+          -- Oh, and there exist lowercase-only letters (see previous test)
+          stable c = if isLower c
+                     then C.toUpper c /= c
+                     else c /= '\170' && c /= '\186'
 
 justifyLeft k c xs  = xs ++ L.replicate (k - length xs) c
 justifyRight m n xs = L.replicate (m - length xs) n ++ xs