From be2c552788c9c4eeedc0259cc7d3aeb60f9eb583 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 25 Sep 2009 14:16:44 +0000 Subject: [PATCH] fix cleanse-path security-guard test svn: r16125 --- collects/tests/mzscheme/file.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/mzscheme/file.ss b/collects/tests/mzscheme/file.ss index 913a118395..7c14452ffc 100644 --- a/collects/tests/mzscheme/file.ss +++ b/collects/tests/mzscheme/file.ss @@ -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?))