unlock `file-error?` test case
This commit is contained in:
parent
cc502cadef
commit
ff843f0e8f
|
@ -2292,9 +2292,9 @@
|
||||||
(test #t (file-exists? "."))
|
(test #t (file-exists? "."))
|
||||||
(test #f (file-exists? " no such file "))
|
(test #f (file-exists? " no such file "))
|
||||||
|
|
||||||
;; (test #t (file-error?
|
(test #t (file-error?
|
||||||
;; (guard (exn (else exn))
|
(guard (exn (else exn))
|
||||||
;; (delete-file " no such file "))))
|
(delete-file " no such file "))))
|
||||||
|
|
||||||
(test-end)
|
(test-end)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue