[Guile-commits] 02/02: Better eval+promise+gc test

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 1d326a511b55f367cb1f9bb8fe0c238d7205a58b
Author: Andy Wingo <address@hidden>
Date:   Tue Mar 14 15:35:38 2017 +0100

    Better eval+promise+gc test
    
    * test-suite/tests/eval.test ("promises"): Increase clear pass rate on
      this test.
---
 test-suite/tests/eval.test | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/test-suite/tests/eval.test b/test-suite/tests/eval.test
index 26917d7..8a52e11 100644
--- a/test-suite/tests/eval.test
+++ b/test-suite/tests/eval.test
@@ -306,8 +306,13 @@
          (g x)
          (set! p (delay (car x))))
        (force p)
+        (gc)
+        ;; Though this test works reliably when running just eval.test,
+        ;; it often does the unresolved case when running the full
+        ;; suite.  Adding this extra gc makes the full-suite behavior
+        ;; pass more reliably.
        (gc)
-       (if (not (equal? (g) (cons #f #f)))
+        (if (not (equal? (g) (cons #f #f)))
            (throw 'unresolved)
            #t))))