From 5f08fa4cef4c16e019a9160faeeb83a5a6e1f47e Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sun, 16 Feb 2014 20:38:07 +0100 Subject: [PATCH] remhash tests --- tests/hash-tables.lisp | 6 ++++++ 1 file changed, 6 insertions(+) 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)))) + -- 1.7.10.4