remhash tests

[jscl.git] / tests / hash-tables.lisp

diff --git a/tests/hash-tables.lisp b/tests/hash-tables.lisp
index abbec79..3dc7528 100644 (file)
--- a/tests/hash-tables.lisp
+++ b/tests/hash-tables.lisp
@@ -13,4 +13,10 @@
   (test (equal (gethash "foo" ht) 10)))
 
 
+(let ((ht (make-hash-table :test #'equal)))
+  (setf (gethash "foo" ht) 10)
+  (test (eq (remhash "foo" ht) t))
+  (test (eq (remhash "foo" ht) nil))
+  (test (null (gethash "foo" ht))))
+