mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

Better eval+promise+gc test

Browse source 
* test-suite/tests/eval.test ("promises"): Increase clear pass rate on
  this test.
This commit is contained in:
Andy Wingo 2017-03-14 15:35:38 +01:00
parent cbc469f8a4
commit 1d326a511b
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
test-suite/tests/eval.test
View file

@ -306,8 +306,13 @@
(g x) (g x)
(set! p (delay (car x)))) (set! p (delay (car x))))
(force p) (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) (gc)
(if (not (equal? (g) (cons #f #f))) (if (not (equal? (g) (cons #f #f)))
(throw 'unresolved) (throw 'unresolved)
#t)))) #t))))