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

added test case corresponding to PR 8564

Browse Source 
svn: r5823
This commit is contained in:
Robby Findler 2007-03-25 18:48:14 +00:00
parent 70af2bcebe
commit 4439c04f47
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
collects/tests/framework/frame.ss
View File

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