(define-test (misc gethash/i)
  (let ((ht (make-hash-table)))
    (is eql nil (gethash :foo ht))
    (is eql 42 (gethash/i :foo ht 42))
    (is eql 42 (gethash :foo ht))
    (is eql 42 (gethash/i :foo ht 123))
    (is eql 42 (gethash :foo ht))))