[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 02/02: Better eval+promise+gc test
From: |
Andy Wingo |
Subject: |
[Guile-commits] 02/02: Better eval+promise+gc test |
Date: |
Tue, 14 Mar 2017 11:04:20 -0400 (EDT) |
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))))