mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +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)
(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))))