From ef9709dacc4d74c4b0faffaa5a80a6de47dc0a04 Mon Sep 17 00:00:00 2001 From: Dirk Herrmann Date: Wed, 28 Feb 2001 13:17:47 +0000 Subject: * Moved reader related tests from exceptions.test to reader.test. --- test-suite/tests/exceptions.test | 12 ------------ 1 file changed, 12 deletions(-) (limited to 'test-suite/tests/exceptions.test') diff --git a/test-suite/tests/exceptions.test b/test-suite/tests/exceptions.test index dbb2ea7c5..b70db1608 100644 --- a/test-suite/tests/exceptions.test +++ b/test-suite/tests/exceptions.test @@ -60,9 +60,6 @@ (use-modules (test-suite lib) (ice-9 regex) (ice-9 common-list)) -(define (read-string s) - (with-input-from-string s (lambda () (read)))) - (defmacro expect-exception (name-snippet expression) `(pass-if (with-output-to-string (lambda () @@ -97,8 +94,6 @@ (define x:missing/extra-expr "[Mm]issing or extra expression") (define x:wrong-num-args "[Ww]rong number of arguments") (define x:wrong-type-arg "[Ww]rong type argument") -(define x:eof "[Ee]nd of file") -(define x:unexpected-rparen "[Uu]nexpected \")\"") ;; This is to encourage people to write tests. @@ -116,13 +111,6 @@ ;; Tests (with-test-prefix "syntax" - (with-test-prefix "reading" - (goad x:eof (read-string "(")) - (goad x:unexpected-rparen (read-string ")")) - (goad x:eof (read-string "#(")) - (goad x:unexpected-rparen (read-string ")")) - ;; Add more (syntax reading) exceptions here. - ) (with-test-prefix "lambda" (goad x:bad-formals (lambda (x 1) 2)) -- cgit v1.2.3