conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix test case

This commit is contained in:
Yuichi Nishiwaki 2014-07-29 18:12:57 +09:00
parent 52aa837bea
commit 80dde12fc3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
t/r7rs-tests.scm
View File

@ -2012,7 +2012,7 @@
(test 'Hello (read (open-input-string "|H\\x65;llo|"))) (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 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 def")))
(test 'def (read (open-input-string "; abc \ndef"))) (test 'def (read (open-input-string "; abc \ndef")))