From: David Vázquez <davazp@gmail.com>
Date: Sun, 16 Feb 2014 19:38:07 +0000 (+0100)
Subject: remhash tests
X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=commitdiff_plain;h=5f08fa4cef4c16e019a9160faeeb83a5a6e1f47e

remhash tests
---

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))))
+