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

allow test to run if GL is unavailable

Browse Source
This commit is contained in:
Matthew Flatt 2012-07-15 10:36:36 -06:00
parent 73e901a262
commit 55a8445b0b
1 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/tests/gracket/dc.rktl
View File

@ -577,6 +577,7 @@
(define dc2 (make-object bitmap-dc% bm2)) (define dc2 (make-object bitmap-dc% bm2))
(define gl1 (send dc1 get-gl-context)) (define gl1 (send dc1 get-gl-context))
(define gl2 (send dc2 get-gl-context)) (define gl2 (send dc2 get-gl-context))
(when (and gl1 gl2)
(send gl1 call-as-current (send gl1 call-as-current
(lambda () (lambda ()
(test 5 'alt (send gl2 call-as-current (test 5 'alt (send gl2 call-as-current
@ -593,7 +594,7 @@
(lambda () 8))))) (lambda () 8)))))
(with-handlers ([exn? void]) (with-handlers ([exn? void])
(send gl1 call-as-current (lambda () (error "fail")))) (send gl1 call-as-current (lambda () (error "fail"))))
(test 12 'post-exn (send gl1 call-as-current (lambda () 12)))) (test 12 'post-exn (send gl1 call-as-current (lambda () 12)))))
;; ---------------------------------------- ;; ----------------------------------------