diff options
-rw-r--r-- | test-suite/ChangeLog | 11 | ||||
-rw-r--r-- | test-suite/tests/exceptions.test | 12 | ||||
-rw-r--r-- | test-suite/tests/reader.test | 19 |
3 files changed, 30 insertions, 12 deletions
diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog index b54179a95..1f07f0782 100644 --- a/test-suite/ChangeLog +++ b/test-suite/ChangeLog @@ -1,5 +1,16 @@ 2001-02-28 Dirk Herrmann <D.Herrmann@tu-bs.de> + * reader.test, exceptions.test: Moved the reader related test + cases from exceptions.test to reader.test. + + * reader.test (exception:eof, exception:unexpected-rparen): New + constants. + + * exceptions.test (read-string, x:eof, x:unexpected-rparen): + Removed. + +2001-02-28 Dirk Herrmann <D.Herrmann@tu-bs.de> + * lib.scm (signals-error?, signals-error?*): Removed. 2001-02-28 Dirk Herrmann <D.Herrmann@tu-bs.de> 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)) diff --git a/test-suite/tests/reader.test b/test-suite/tests/reader.test index 41e8566c5..64bd05aa7 100644 --- a/test-suite/tests/reader.test +++ b/test-suite/tests/reader.test @@ -1,6 +1,11 @@ ;;;; reader.test --- test the Guile parser -*- scheme -*- ;;;; Jim Blandy <jimb@red-bean.com> --- September 1999 +(define exception:eof + (cons 'misc-error "^end of file")) +(define exception:unexpected-rparen + (cons 'misc-error "^unexpected \")\"")) + (define (read-string s) (with-input-from-string s (lambda () (read)))) @@ -20,3 +25,17 @@ (pass-if-exception "radix passed to number->string can't be one either" exception:out-of-range (number->string 10 1)) + +(with-test-prefix "mismatching parentheses" + (pass-if-exception "opening parenthesis" + exception:eof + (read-string "(")) + (pass-if-exception "closing parenthesis following mismatched opening" + exception:unexpected-rparen + (read-string ")")) + (pass-if-exception "opening vector parenthesis" + exception:eof + (read-string "#(")) + (pass-if-exception "closing parenthesis following mismatched vector opening" + exception:unexpected-rparen + (read-string ")"))) |