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

move test-read-error to r7rs-tests.scm

This commit is contained in:
Yuichi Nishiwaki 2014-07-27 18:39:27 +09:00
parent 6a0cc4c9f7
commit 28c486261c
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
piclib/picrin/test.scm
View File

@ -83,10 +83,4 @@
(syntax-rules () (syntax-rules ()
((_) (syntax-error "invalid use of test-syntax-error")))) ((_) (syntax-error "invalid use of test-syntax-error"))))
;; (define (test-read-error str)
;; (test-assert
;; (guard (exn (else #t))
;; (read (open-input-string str))
;; #f)))
(export test test-begin test-end test-values test-exit test-syntax-error)) (export test test-begin test-end test-values test-exit test-syntax-error))

6
t/r7rs-tests.scm
View File

@ -2025,6 +2025,12 @@
(test '(a . c) (read (open-input-string "(a . #;b c)"))) (test '(a . c) (read (open-input-string "(a . #;b c)")))
(test '(a . b) (read (open-input-string "(a . b #;c)"))) (test '(a . b) (read (open-input-string "(a . b #;c)")))
;; (define (test-read-error str)
;; (test #t
;; (guard (exn (else #t))
;; (read (open-input-string str))
;; #f)))
;; (test-read-error "(#;a . b)") ;; (test-read-error "(#;a . b)")
;; (test-read-error "(a . #;b)") ;; (test-read-error "(a . #;b)")
;; (test-read-error "(a #;. b)") ;; (test-read-error "(a #;. b)")