move test-read-error to r7rs-tests.scm
This commit is contained in:
parent
6a0cc4c9f7
commit
28c486261c
|
@ -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))
|
||||
|
|
|
@ -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)")
|
||||
|
|
Loading…
Reference in New Issue