From b68b2cce8bfb983cf2f5c6632111b99e5549f82e Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 14 Feb 2017 20:03:41 -0800 Subject: [PATCH] Fix unit test broken by recent change. --- tests/runtime/test-char-set.scm | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/tests/runtime/test-char-set.scm b/tests/runtime/test-char-set.scm index ca6352dcd..83d294bf5 100644 --- a/tests/runtime/test-char-set.scm +++ b/tests/runtime/test-char-set.scm @@ -66,7 +66,7 @@ USA. (iota n-iter))) (define (make-random-svl n-ranges) - (let ((modulus (* %low-limit 2))) + (let ((modulus #x1000)) (make-initialized-list n-ranges (lambda (i) i @@ -84,15 +84,17 @@ USA. (run-sub-test (lambda () (assert-boolean= - (char-set-member? (char-set* svl) - (integer->char value)) + (char-in-set? (integer->char value) (char-set* svl)) + (named-call 'SVL-MEMBER? svl-member? svl value)) + (assert-boolean= + (scalar-value-in-char-set? value (char-set* svl)) (named-call 'SVL-MEMBER? svl-member? svl value))) - 'EXPRESSION `(CHAR-SET-MEMBER? ,svl ,value))) + 'EXPRESSION `(CHAR-IN-SET? ,value ,svl))) (enumerate-test-values))) interesting-svls))) (define (enumerate-test-values) - (append (iota (+ %low-limit 8)) + (append (iota #x808) (if keep-it-fast!? '() (iota 8 (- char-code-limit 8))))) @@ -338,9 +340,6 @@ USA. (define interesting-points (list 0 1 - (- %low-limit 1) - %low-limit - (+ %low-limit 1) (- char-code-limit 1) char-code-limit)) -- 2.25.1