From d343751862b945b22dfb5f2c165e1676b1808e73 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 23 Jul 2008 13:19:30 +0000 Subject: [PATCH] another r6rs test svn: r10875 --- collects/tests/r6rs/hashtables.sls | 1 + 1 file changed, 1 insertion(+) diff --git a/collects/tests/r6rs/hashtables.sls b/collects/tests/r6rs/hashtables.sls index a712464b17..d3b1575c88 100644 --- a/collects/tests/r6rs/hashtables.sls +++ b/collects/tests/r6rs/hashtables.sls @@ -160,6 +160,7 @@ (test (string-hash "a") (string-hash (make-string 1 #\a))) (test (string-hash "aaaaa") (string-hash (make-string 5 #\a))) (test (string-ci-hash "aAaAA") (string-ci-hash (make-string 5 #\a))) + (test (string-ci-hash "aAaAA") (string-ci-hash (make-string 5 #\A))) (test (symbol-hash 'a) (symbol-hash 'a))