unlock `file-error?` test case

This commit is contained in:
Sunrim KIM (keen) 2014-09-22 00:01:07 +09:00
parent cc502cadef
commit ff843f0e8f
1 changed files with 3 additions and 3 deletions

View File

@ -2292,9 +2292,9 @@
(test #t (file-exists? "."))
(test #f (file-exists? " no such file "))
;; (test #t (file-error?
;; (guard (exn (else exn))
;; (delete-file " no such file "))))
(test #t (file-error?
(guard (exn (else exn))
(delete-file " no such file "))))
(test-end)