diff --git a/tests/more-tests/hash-code.rkt b/tests/more-tests/hash-code.rkt index cbb3ed2..5265c76 100644 --- a/tests/more-tests/hash-code.rkt +++ b/tests/more-tests/hash-code.rkt @@ -2,16 +2,18 @@ (require (planet dyoo/whalesong/lang/private/shared)) ;; boxes +"boxes" (equal-hash-code (box 42)) ;; bytes +"bytes" (equal-hash-code #"testing") ;; chars - +"chars" (equal-hash-code #\A) (equal-hash-code #\B) ;; hashes - +"hashes" (equal-hash-code (make-hash '((1 . x) (2 . y) (3 . z)))) @@ -24,6 +26,7 @@ ; ;; lists +"lists" (equal-hash-code (list 1 2 3 4 5)) (equal-hash-code (shared ([a (cons 1 b)] [b (cons 2 a)]) @@ -36,16 +39,21 @@ ;; ;; strings +"strings" (equal-hash-code "Hello world") ;; structs +"structs" (define-struct thing (name age) #:mutable) (equal-hash-code (make-thing "danny" 32)) (equal-hash-code (shared ([a (make-thing a a)]) a)) ;; symbols +"symbols" (equal-hash-code 'hello) +(equal-hash-code 'world) ;; vectors +"vectors" (equal-hash-code #(1 2 3 4 5)) (equal-hash-code (shared ([v (vector 1 2 v 3 v)]) v))