From fa00d01b6fdc66be5c99ef0914a0e98f975acaac Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 12 Feb 2015 09:46:12 -0700 Subject: [PATCH] fix SRFI-14 tests for Unicode 7.0 --- pkgs/racket-test/tests/racket/srfi-14.rkt | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/pkgs/racket-test/tests/racket/srfi-14.rkt b/pkgs/racket-test/tests/racket/srfi-14.rkt index 7266b7007f..d46fbf6cc3 100644 --- a/pkgs/racket-test/tests/racket/srfi-14.rkt +++ b/pkgs/racket-test/tests/racket/srfi-14.rkt @@ -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 @@ -511,4 +513,4 @@ ;; ---------------------------------------- ;; PR 8624 --- make sure there's no error: -(check-true (string? (char-set->string (char-set-complement char-set:graphic)))) \ No newline at end of file +(check-true (string? (char-set->string (char-set-complement char-set:graphic))))