16 lines
381 B
Scheme
16 lines
381 B
Scheme
|
(library (tests hashtables)
|
||
|
|
(export test-hashtables)
|
||
|
|
(import
|
||
|
|
(ikarus)
|
||
|
|
(rnrs hashtables)
|
||
|
|
(tests framework))
|
||
|
|
|
||
|
|
(define-tests test-hashtables
|
||
|
|
[values
|
||
|
|
(let ([h (make-eq-hashtable)])
|
||
|
|
(hashtable-set! h 'foo 12)
|
||
|
|
(hashtable-set! h 'bar 13)
|
||
|
|
(or (equal? (hashtable-keys h) '#(foo bar))
|
||
|
|
(equal? (hashtable-keys h) '#(bar foo))))]))
|
||
|
|
|