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

another r6rs test

Browse Source 
svn: r10875
This commit is contained in:
Matthew Flatt 2008-07-23 13:19:30 +00:00
parent 7a21aff2e6
commit d343751862
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/tests/r6rs/hashtables.sls
View File

@ -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))