mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 23:00:22 +02:00
Code Activity

* Tests that rely on garbage collection: Be aware of conservative scanning.

Browse source
This commit is contained in:
Dirk Herrmann 2000-09-12 12:42:51 +00:00
parent 28b06554ca
commit 415052599e
2 changed files with 13 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
test-suite/ChangeLog
View file

@ -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> 2000-09-05 Dirk Herrmann <D.Herrmann@tu-bs.de>
* tests/environments.test: Finished and cleaned up the tests for * tests/environments.test: Finished and cleaned up the tests for

8
test-suite/tests/environments.test
View file

@ -382,7 +382,9 @@
(environment-observe-weak env func) (environment-observe-weak env func)
(gc) (gc)
(environment-define env 'a 1) (environment-define env 'a 1)
(eqv? (func) 0)))) (if (not (eqv? (func) 0))
(throw 'unresolved) ; note: conservative scanning
#t))))
(with-test-prefix "erroneous observers" (with-test-prefix "erroneous observers"
@ -1043,7 +1045,9 @@
(environment-observe-weak env func) (environment-observe-weak env func)
(gc) (gc)
(environment-define env 'a 1) (environment-define env 'a 1)
(eqv? (func) 0)))) (if (not (eqv? (func) 0))
(throw 'unresolved) ; note: conservative scanning
#t))))
(with-test-prefix "erroneous observers" (with-test-prefix "erroneous observers"