.
original commit: 9d1eea53abfd55fe28c8b78f57d8145f49cc8bc8
This commit is contained in:
parent
75c99f9a74
commit
decd801b1a
|
@ -6,20 +6,6 @@
|
|||
;; Parameterization Tests ;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(define (get-hello thunk)
|
||||
(parameterize ([debug-info-handler (lambda () 'hello)])
|
||||
(with-handlers ([void (lambda (x) (exn-debug-info x))])
|
||||
(thunk))))
|
||||
|
||||
(test 'hello
|
||||
'debug-info-handler
|
||||
(get-hello (lambda () (make-object frame% #f))))
|
||||
|
||||
(test 'hello
|
||||
'debug-info-handler
|
||||
(get-hello (lambda () (let ([f (make-object frame% #f)])
|
||||
(send f set-status-text 'bad-val)))))
|
||||
|
||||
;; Killing an eventspace
|
||||
(define c (make-custodian))
|
||||
(define e (parameterize ([current-custodian c]) (make-eventspace)))
|
||||
|
|
Loading…
Reference in New Issue
Block a user