mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

(hashx-remove!): New tests.

Browse source
This commit is contained in:
Kevin Ryde 2005-04-22 23:33:54 +00:00
parent 4cff503fc8
commit 87c08ac0f7
1 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

14
test-suite/tests/hash.test
View file

@ -1,6 +1,6 @@
;;;; hash.test --- test guile hashing -*- scheme -*- ;;;; 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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; 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 #t 1)))
(pass-if (= 0 (hashq #f 1))) (pass-if (= 0 (hashq #f 1)))
(pass-if (= 0 (hashq noop 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)))))