glisp/tests/hash.glisp

(def h {'a 21 2 5 "c" #c})

; testing hget
(assert (= 21 (hget h 'a)))
(assert (= 5 (hget h 2)))
(assert (= #c (hget h "c")))
; default value
(assert (= 0 (hget h 22 0)))

; testing set
(hset! h #a 3)
(assert (= 3 (hget h #a)))

; testing confict resolution
; b and its symbol number have same hash value
(hset! h 'b 13)
(hset! h (symnum 'b) 42)

(assert (= 13 (hget h 'b)))
(assert (= 42 (hget h (symnum 'b))))

; testing delete
(hdel! h 'a)
; 'a should be gone
(assert (= 0 (hget h 'a 0)))
(hdel! h (symnum 'b))
; b should still be in there
(assert (= 13 (hget h 'b)))

(assert (hash? h))
(assert (empty? {}))
(assert (not (empty? h)))