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

fix cleanse-path security-guard test

Browse Source 
svn: r16125
This commit is contained in:
Matthew Flatt 2009-09-25 14:16:44 +00:00
parent 5abe0a4a7a
commit be2c552788
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/mzscheme/file.ss
View File

@ -1424,7 +1424,7 @@
(err/rt-test (current-directory "tmp1") (fs-reject? 'current-directory))
(err/rt-test (current-drive) (lambda (x)
(or (exn:unsupported? x) ((fs-reject? 'current-drive) x))))
(err/rt-test (cleanse-path "tmp1") (fs-reject? 'cleanse-path))
(test #t path? (cleanse-path "tmp1")) ;; no security guard for cleanse
(err/rt-test (resolve-path "tmp1") (fs-reject? 'resolve-path))
(err/rt-test (simplify-path "../tmp1") (fs-reject? 'simplify-path))
(err/rt-test (file-exists? "tmp1") (fs-reject? 'file-exists?))