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

diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index 665e1fd..b0fea89 100644 (file)
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -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

diff --git a/test-suite/tests/environments.test b/test-suite/tests/environments.test
index 8f1f56b..908ec5a 100644 (file)
--- 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"