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

fix expected error messages

Browse Source 
svn: r12429
This commit is contained in:
Eli Barzilay 2008-11-13 17:18:50 +00:00
parent bac4053c37
commit fc1b9cdf9d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -238,9 +238,9 @@
(file-exists? ,list-lib) => #t
(input-port? (open-input-file ,list-lib)) => #t
;; writing is forbidden
(open-output-file ,list-lib) =err> "file access denied"
(open-output-file ,list-lib) =err> "`write' access denied"
;; reading from other places is forbidden
(directory-list ,tmp) =err> "file access denied"
(directory-list ,tmp) =err> "`read' access denied"
;; no network too
(tcp-listen 12345) =err> "network access denied"
--top--
@ -255,7 +255,7 @@
x => 123
(length (with-input-from-file ,test-lib read)) => 5
;; the directory is still not kosher
(directory-list ,tmp) =err> "file access denied"
(directory-list ,tmp) =err> "`read' access denied"
--top--
;; should work also for module evaluators
;; --> NO! Shouldn't make user code require whatever it wants