From ff843f0e8f0eb7f94eca212ad160af73cc267c21 Mon Sep 17 00:00:00 2001 From: "Sunrim KIM (keen)" <3han5chou7@gmail.com> Date: Mon, 22 Sep 2014 00:01:07 +0900 Subject: [PATCH] unlock `file-error?` test case --- t/r7rs-tests.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/t/r7rs-tests.scm b/t/r7rs-tests.scm index f09c1d2b..8f315463 100644 --- a/t/r7rs-tests.scm +++ b/t/r7rs-tests.scm @@ -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)