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

View File

@ -83,10 +83,4 @@
(syntax-rules ()
((_) (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))

View File

@ -2025,6 +2025,12 @@
(test '(a . c) (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)")