suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix test to work right with imprecise GC

Browse Source
This commit is contained in:
Matthew Flatt 2012-01-31 08:52:47 -07:00
parent a94e1fc00e
commit c979e690a5
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/tests/racket/will.rktl
View File

@ -177,11 +177,12 @@
(for/list ([n 100]) (for/list ([n 100])
(cons (make-weak-box (gensym)) (cons (make-weak-box (gensym))
(make-ephemeron (gensym) 10)))) (make-ephemeron (gensym) 10))))
(define (num-or a b) (if (number? a) a b))
(collect-garbage) (collect-garbage)
(define n (for/fold ([n 0]) ([p stuff]) (define n (for/fold ([n 0]) ([p stuff])
(+ n (+ n
(or (weak-box-value (car p) 0) 1) (num-or (weak-box-value (car p) 0) 1)
(or (ephemeron-value (cdr p) 0) 1)))) (num-or (ephemeron-value (cdr p) 0) 1))))
(test #t < n 50)) (test #t < n 50))
;; ---------------------------------------- ;; ----------------------------------------