From 28c486261c701ee11cae054ccda992e7217e3087 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Sun, 27 Jul 2014 18:39:27 +0900 Subject: [PATCH] move test-read-error to r7rs-tests.scm --- piclib/picrin/test.scm | 6 ------ t/r7rs-tests.scm | 6 ++++++ 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/piclib/picrin/test.scm b/piclib/picrin/test.scm index 350c76e9..28650b84 100644 --- a/piclib/picrin/test.scm +++ b/piclib/picrin/test.scm @@ -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)) diff --git a/t/r7rs-tests.scm b/t/r7rs-tests.scm index d22acc7e..7ee8934c 100644 --- a/t/r7rs-tests.scm +++ b/t/r7rs-tests.scm @@ -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)")