From: David Vázquez <davazp@gmail.com>
Date: Sun, 16 Feb 2014 19:38:45 +0000 (+0100)
Subject: Merge branch 'hashtables'
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=6e5e8f58051235ab5eb4fbab77bf3275426a2cec;hp=85f0d5790e87525e7bbde14ad21935ab683a328f;p=jscl.git

Merge branch 'hashtables'
---

diff --git a/tests/hash-tables.lisp b/tests/hash-tables.lisp
index abbec79..3dc7528 100644
--- 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))))
+