fix SRFI-14 tests for Unicode 7.0

This commit is contained in:
Matthew Flatt 2015-02-12 09:46:12 -07:00
parent 97bd3f7549
commit fa00d01b6f

View File

@ -58,8 +58,9 @@
(test #t char-set-contains? char-set:letter+digit #\A)
(test #t char-set-contains? char-set:letter+digit #\Z)
;; As of Unicode 5.0:
(test 93217 char-set-size char-set:letter)
;; As of Unicode 5.0: 93217
;; As of Unicode 7.0:
(test 104077 char-set-size char-set:letter)
(test #t char-set= char-set:letter+digit (char-set-union char-set:letter char-set:digit))
;; Slow!:
@ -117,8 +118,9 @@
;; Iterating over character sets ----------------------------------------
;; As of Unicode 5.0
(test 388 char-set-size char-set:digit)
;; As of Unicode 5.0: 388
;; As of Unicode 7.0:
(test 668 char-set-size char-set:digit)
(test #t char-set=
char-set:digit