original commit: 9d1eea53abfd55fe28c8b78f57d8145f49cc8bc8
This commit is contained in:
Matthew Flatt 1999-05-14 16:12:45 +00:00
parent 75c99f9a74
commit decd801b1a

View File

@ -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)))