tests/hash-custom-test.pure.lisp

   1 (with-test (:name (:hash-table :custom-hash-function :closure))
   2   (flet ((equal-p (left right)
   3            (equal left right))
   4          (hash (item)
   5            (sxhash item)))
   6     (let ((table (make-hash-table :test #'equal-p
   7                                   :hash-function #'hash)))
   8       (loop for i from 0 to 100
   9             do (progn
  10                  (setf (gethash i table) i)
  11                  (assert (= (gethash i table) i))))
  12       (assert (= (hash-table-count table) 101))
  13       (assert (eq (hash-table-test table) #'equal-p)))))