From: Andy Wingo <wingo@pobox.com>
Date: Tue, 14 Mar 2017 14:35:38 +0000 (+0100)
Subject: Better eval+promise+gc test
X-Git-Tag: v2.2.0~4
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=1d326a511b55f367cb1f9bb8fe0c238d7205a58b;p=platform%2Fupstream%2Fguile.git

Better eval+promise+gc test

* test-suite/tests/eval.test ("promises"): Increase clear pass rate on
  this test.
---

diff --git a/test-suite/tests/eval.test b/test-suite/tests/eval.test
index 26917d762..8a52e11f2 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))))