summaryrefslogtreecommitdiff
path: root/test-suite/tests/exceptions.test
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-02-28 13:17:47 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-02-28 13:17:47 +0000
commitef9709dacc4d74c4b0faffaa5a80a6de47dc0a04 (patch)
tree469f6e1f4a66d784fe04c74ce4eccec6110761e5 /test-suite/tests/exceptions.test
parent88f9ab70d04f7c28bc96b273a7c8ca2480b7285f (diff)
downloadguile-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.test12
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))