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

test fix eqvhash table for characters

Browse Source 
svn: r14047
This commit is contained in:
Matthew Flatt 2009-03-11 02:25:24 +00:00
parent 5b267aaaad
commit 5269b2a05a
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/tests/mzscheme/basic.ss
View File

@ -2151,6 +2151,18 @@
(test #t hash-weak? (make-weak-hash))
(test #t hash-weak? (make-weak-hasheqv))
(let ([ht (make-hasheqv)]
[l (list #x03B1 #x03B2 #x03B3)]
[l2 '(1 2 3)])
(for-each (lambda (a b)
(hash-set! ht (integer->char a) b))
l l2)
(test '(3 2 1)
map
(lambda (a)
(hash-ref ht (integer->char a) #f))
(reverse l)))
(err/rt-test (hash-eq? 5))
(err/rt-test (hash-eqv? 5))
(err/rt-test (hash-weak? 5))