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

add more tests, mainly for catching exceptions and other raised values

Browse Source 
svn: r13159
This commit is contained in:
Eli Barzilay 2009-01-16 05:18:37 +00:00
parent cac38f95cb
commit b81ea02cab
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/tests/mzscheme/promise.ss
View File

@ -70,4 +70,19 @@
(t (force (lazy (lazy (lazy (force (delay (delay _)))))))) (t (force (lazy (lazy (lazy (force (delay (delay _))))))))
(t (force (lazy (lazy (delay (force (lazy (delay _))))))))) (t (force (lazy (lazy (delay (force (lazy (delay _)))))))))
;; more tests
(let ()
(define (force+catch x)
(with-handlers ([void (lambda (x) (cons 'catch x))]) (force x)))
;; results are cached
(let ([x (delay (random 10000))])
(test #t equal? (force x) (force x)))
;; errors are cached
(let ([x (delay (error 'foo "blah"))])
(test #t equal? (force+catch x) (force+catch x)))
;; other raised values are cached
(let ([x (delay (raise (random 10000)))])
(test #t equal? (force+catch x) (force+catch x)))
)
(report-errs) (report-errs)