diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-02-28 13:17:47 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-02-28 13:17:47 +0000 |
commit | ef9709dacc4d74c4b0faffaa5a80a6de47dc0a04 (patch) | |
tree | 469f6e1f4a66d784fe04c74ce4eccec6110761e5 /test-suite/tests/exceptions.test | |
parent | 88f9ab70d04f7c28bc96b273a7c8ca2480b7285f (diff) | |
download | guile-ef9709dacc4d74c4b0faffaa5a80a6de47dc0a04.tar.gz |
* Moved reader related tests from exceptions.test to reader.test.
Diffstat (limited to 'test-suite/tests/exceptions.test')
-rw-r--r-- | test-suite/tests/exceptions.test | 12 |
1 files changed, 0 insertions, 12 deletions
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)) |