diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog index 665e1fde2..b0fea8962 100644 --- a/test-suite/ChangeLog +++ b/test-suite/ChangeLog @@ -1,3 +1,10 @@ +2000-09-12 Dirk Herrmann + + * 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 * tests/environments.test: Finished and cleaned up the tests for diff --git a/test-suite/tests/environments.test b/test-suite/tests/environments.test index 8f1f56b42..908ec5ab7 100644 --- a/test-suite/tests/environments.test +++ b/test-suite/tests/environments.test @@ -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"