From 80dde12fc31225ad1f41f580301458de3a93a8df Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Tue, 29 Jul 2014 18:12:57 +0900 Subject: [PATCH] fix test case --- t/r7rs-tests.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/r7rs-tests.scm b/t/r7rs-tests.scm index 3edd6a14..19050d71 100644 --- a/t/r7rs-tests.scm +++ b/t/r7rs-tests.scm @@ -2012,7 +2012,7 @@ (test 'Hello (read (open-input-string "|H\\x65;llo|"))) (test 'abc (read (open-input-string "#!fold-case ABC"))) -(test 'ABC (read (open-input-string "#!fold-case #!no-fold-case ABC"))) +(test '|ABC| (read (open-input-string "#!fold-case #!no-fold-case ABC"))) (test 'def (read (open-input-string "#; abc def"))) (test 'def (read (open-input-string "; abc \ndef")))