diff options
| author | Andy Wingo <wingo@pobox.com> | 2017-03-14 15:35:38 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2017-03-14 16:04:14 +0100 |
| commit | 1d326a511b55f367cb1f9bb8fe0c238d7205a58b (patch) | |
| tree | 09cec60159b505eab01f91a75c72fb88c1e3c48f | |
| parent | cbc469f8a4dceeb782e8ab6f5f0fe4fb454532c9 (diff) | |
| download | guile-1d326a511b55f367cb1f9bb8fe0c238d7205a58b.tar.gz | |
Better eval+promise+gc test
* test-suite/tests/eval.test ("promises"): Increase clear pass rate on
this test.
| -rw-r--r-- | test-suite/tests/eval.test | 7 |
1 files changed, 6 insertions, 1 deletions
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)))) |