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

Do not fail when the GC does not collect an object, report it as

Browse source 
'unresolved'.
This commit is contained in:
Marius Vollmer 2005-07-31 23:16:51 +00:00
parent 2924541ba0
commit eb074bfc5a
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -33,7 +33,8 @@
;;; other reasons why they might not work as tested here, so if you ;;; other reasons why they might not work as tested here, so if you
;;; haven't done anything to weaks, don't sweat it :) ;;; haven't done anything to weaks, don't sweat it :)
(use-modules (ice-9 weak-vector)) (use-modules (test-suite lib)
(ice-9 weak-vector))
;;; Creation functions ;;; Creation functions
@ -114,11 +115,12 @@
(pass-if "dies" (pass-if "dies"
(begin (begin
(gc) (gc)
(or (not (vector-ref global-weak 0)) (or (and (not (vector-ref global-weak 0))
(not (vector-ref global-weak 1)) (not (vector-ref global-weak 1))
(not (vector-ref global-weak 2)) (not (vector-ref global-weak 2))
(not (vector-ref global-weak 3)) (not (vector-ref global-weak 3))
(not (vector-ref global-weak 4))))))) (not (vector-ref global-weak 4)))
(throw 'unresolved))))))
(let ((x (make-weak-key-alist-vector 17)) (let ((x (make-weak-key-alist-vector 17))
(y (make-weak-value-alist-vector 17)) (y (make-weak-value-alist-vector 17))