From 87c08ac0f7e23c36b35d227f7e994d12ef1bbea0 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Fri, 22 Apr 2005 23:33:54 +0000 Subject: [PATCH] (hashx-remove!): New tests. --- test-suite/tests/hash.test | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/test-suite/tests/hash.test b/test-suite/tests/hash.test index f4db4bfe2..a931259e7 100644 --- a/test-suite/tests/hash.test +++ b/test-suite/tests/hash.test @@ -1,6 +1,6 @@ ;;;; hash.test --- test guile hashing -*- scheme -*- ;;;; -;;;; Copyright (C) 2004 Free Software Foundation, Inc. +;;;; Copyright (C) 2004, 2005 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -61,3 +61,15 @@ (pass-if (= 0 (hashq #t 1))) (pass-if (= 0 (hashq #f 1))) (pass-if (= 0 (hashq noop 1)))) + +;;; +;;; hashx-remove! +;;; + +(with-test-prefix "hashx-remove!" + (pass-if (->bool (object-documentation hashx-remove!))) + + (pass-if (let ((table (make-hash-table))) + (hashx-set! hashq assq table 'x 123) + (hashx-remove! hashq assq table 'x) + (null? (hash-map->list noop table)))))