mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-11 14:21:10 +02:00
* Tests that rely on garbage collection: Be aware of conservative scanning.
This commit is contained in:
parent
28b06554ca
commit
415052599e
2 changed files with 13 additions and 2 deletions
|
@ -1,3 +1,10 @@
|
|||
2000-09-12 Dirk Herrmann <D.Herrmann@tu-bs.de>
|
||||
|
||||
* tests/environments.test: For tests that rely on garbage
|
||||
collection, conservative scanning can be a problem. Add a comment
|
||||
for these tests and make them turn out unresolved if things don't
|
||||
work as expected.
|
||||
|
||||
2000-09-05 Dirk Herrmann <D.Herrmann@tu-bs.de>
|
||||
|
||||
* tests/environments.test: Finished and cleaned up the tests for
|
||||
|
|
|
@ -382,7 +382,9 @@
|
|||
(environment-observe-weak env func)
|
||||
(gc)
|
||||
(environment-define env 'a 1)
|
||||
(eqv? (func) 0))))
|
||||
(if (not (eqv? (func) 0))
|
||||
(throw 'unresolved) ; note: conservative scanning
|
||||
#t))))
|
||||
|
||||
|
||||
(with-test-prefix "erroneous observers"
|
||||
|
@ -1043,7 +1045,9 @@
|
|||
(environment-observe-weak env func)
|
||||
(gc)
|
||||
(environment-define env 'a 1)
|
||||
(eqv? (func) 0))))
|
||||
(if (not (eqv? (func) 0))
|
||||
(throw 'unresolved) ; note: conservative scanning
|
||||
#t))))
|
||||
|
||||
|
||||
(with-test-prefix "erroneous observers"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue