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

misc improvements, add test for (exit)

Browse Source 
svn: r13339
This commit is contained in:
Eli Barzilay 2009-01-31 19:46:33 +00:00
parent 39e07d0843
commit 4b7e4e4322
1 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
collects/tests/mzscheme/sandbox.ss
View File

@ -435,30 +435,33 @@
;; can go arbitrarily high here
(for ([i (in-range 20)]) (t)))
;; test that killing the custodian works fine
;; first try it without limits (limits imply a nested thread/custodian)
;; test that killing the thread, shutting the custodian, or calling `exit'
;; works fine first try it without limits (limits imply a nested
;; thread/custodian)
--top--
(set! ev (parameterize ([sandbox-eval-limits #f])
(make-evaluator 'scheme/base)))
(set! ev (make-evaluator 'scheme/base))
--eval--
(kill-thread (current-thread)) =err> "terminated .thread-killed.$"
--top--
(set! ev (parameterize ([sandbox-eval-limits #f])
(make-evaluator 'scheme/base)))
(set! ev (make-evaluator 'scheme/base))
--eval--
(custodian-shutdown-all (current-custodian))
=err> "terminated .custodian-shutdown.$"
=err> "terminated .custodian-shutdown.$"
--top--
(set! ev (make-evaluator 'scheme/base))
--eval--
(exit) =err> "terminated .exited.$"
--top--
;; also happens when it's done directly
(set! ev (parameterize ([sandbox-eval-limits #f])
(make-evaluator 'scheme/base)))
(set! ev (make-evaluator 'scheme/base))
(call-in-sandbox-context ev (lambda () (kill-thread (current-thread))))
=err> "terminated .thread-killed.$"
(set! ev (parameterize ([sandbox-eval-limits #f])
(make-evaluator 'scheme/base)))
=err> "terminated .thread-killed.$"
(set! ev (make-evaluator 'scheme/base))
(call-in-sandbox-context ev
(lambda () (custodian-shutdown-all (current-custodian))))
=err> "terminated .custodian-shutdown.$"
=err> "terminated .custodian-shutdown.$"
(set! ev (make-evaluator 'scheme/base))
(call-in-sandbox-context ev exit) =err> "terminated .exited.$"
--top--
;; now make sure it works with per-expression limits too
(set! ev (make-evaluator 'scheme/base))