suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix SRFI-14 tests for Unicode 7.0

Browse Source
This commit is contained in:
Matthew Flatt 2015-02-12 09:46:12 -07:00
parent 97bd3f7549
commit fa00d01b6f
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pkgs/racket-test/tests/racket/srfi-14.rkt
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 #\A)
(test #t char-set-contains? char-set:letter+digit #\Z) (test #t char-set-contains? char-set:letter+digit #\Z)
;; As of Unicode 5.0: ;; As of Unicode 5.0: 93217
(test 93217 char-set-size char-set:letter) ;; 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)) (test #t char-set= char-set:letter+digit (char-set-union char-set:letter char-set:digit))
;; Slow!: ;; Slow!:
@ -117,8 +118,9 @@
;; Iterating over character sets ---------------------------------------- ;; Iterating over character sets ----------------------------------------
;; As of Unicode 5.0 ;; As of Unicode 5.0: 388
(test 388 char-set-size char-set:digit) ;; As of Unicode 7.0:
(test 668 char-set-size char-set:digit)
(test #t char-set= (test #t char-set=
char-set:digit char-set:digit
@ -511,4 +513,4 @@
;; ---------------------------------------- ;; ----------------------------------------
;; PR 8624 --- make sure there's no error: ;; PR 8624 --- make sure there's no error:
(check-true (string? (char-set->string (char-set-complement char-set:graphic)))) (check-true (string? (char-set->string (char-set-complement char-set:graphic))))