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

add a test case for starting up drracket when there is no writing to the filesystem allowed

Browse Source
This commit is contained in:
Robby Findler 2011-08-27 17:25:15 -05:00
parent 9fcc12b6a0
commit 7c640c5c5d
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/tests/drracket/leaky-frame.rkt → collects/tests/drracket/no-write-and-frame-leak.rkt
View File

@ -2,6 +2,22 @@
(require "private/drracket-test-util.rkt" (require "private/drracket-test-util.rkt"
framework) framework)
(parameterize ([current-security-guard
(make-security-guard
(current-security-guard)
(λ (who pth what)
(when (member 'write what)
(error who "Writing to the file system is not allowed"))
(when (member 'delete what)
(error who "Deleting files is not allowed")))
void
void)])
(fire-up-drscheme-and-run-tests
(λ ()
(define drs-frame (wait-for-drscheme-frame))
(test:menu-select "File" "Close"))))
#;
(parameterize ([current-command-line-arguments '#()]) (parameterize ([current-command-line-arguments '#()])
(fire-up-drscheme-and-run-tests (fire-up-drscheme-and-run-tests
(λ () (λ ()