From 4439c04f47e3aec91f4e38a0b41f1f2e6202bd8f Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 25 Mar 2007 18:48:14 +0000 Subject: [PATCH] added test case corresponding to PR 8564 svn: r5823 --- collects/tests/framework/frame.ss | 23 ++++++++++++++++++++++- 1 file changed, 22 insertions(+), 1 deletion(-) diff --git a/collects/tests/framework/frame.ss b/collects/tests/framework/frame.ss index 3ac6d30b29..22ecfcc8a1 100644 --- a/collects/tests/framework/frame.ss +++ b/collects/tests/framework/frame.ss @@ -143,4 +143,25 @@ `(send (get-top-level-focus-window) close)))))))) (test-open "frame:searchable open" 'frame:searchable%) - (test-open "frame:text open" 'frame:text%)) + (test-open "frame:text open" 'frame:text%) + + + ;; test to be sure that shutting down one frame doesn't kill others + (test + "custodian shutdown old frame" + (lambda (x) (eq? 'passed x)) + (lambda () + (send-sexp-to-mred + `(let ([c (make-custodian)]) + (parameterize ((current-custodian c)) + (parameterize ((current-eventspace (make-eventspace))) + (send (new frame:basic% (label "to be shutdown")) + show #t))) + (custodian-shutdown-all c) + (send (new frame:basic% (label "after shutdown")) show #t))) + (wait-for-frame "after shutdown") + (queue-sexp-to-mred + '(send (get-top-level-focus-window) close)) + 'passed)) + + )