diff options
-rw-r--r-- | test-suite/ChangeLog | 7 | ||||
-rw-r--r-- | test-suite/tests/syntax.test | 60 |
2 files changed, 47 insertions, 20 deletions
diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog index ede226d38..aae712022 100644 --- a/test-suite/ChangeLog +++ b/test-suite/ChangeLog @@ -1,5 +1,12 @@ 2003-04-23 Dirk Herrmann <D.Herrmann@tu-bs.de> + * tests/syntax.test: Modified some tests to use eval when + providing bad syntax. Otherwise, the memoizer will report an + error immediately after reading the form, without even the chance + to get the pass-if-exception mechanism started. + +2003-04-23 Dirk Herrmann <D.Herrmann@tu-bs.de> + * tests/guardians.test: Added some more elaborate and sophisticated tests for the guardian functionality. diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test index 14836fbc9..a4246ef7f 100644 --- a/test-suite/tests/syntax.test +++ b/test-suite/tests/syntax.test @@ -97,7 +97,8 @@ (pass-if-exception "(lambda \"foo\" #f)" exception:bad-formals - (lambda "foo" #f)) + (eval '(lambda "foo" #f) + (interaction-environment))) (pass-if-exception "(lambda (x 1) 2)" exception:bad-formals @@ -175,7 +176,8 @@ (pass-if-exception "(let ((1 2)) 3)" exception:bad-var - (let ((1 2)) 3))) + (eval '(let ((1 2)) 3) + (interaction-environment)))) (with-test-prefix "duplicate bindings" @@ -257,15 +259,18 @@ (pass-if-exception "(let* x ())" exception:bad-bindings - (let* x ())) + (eval '(let* x ()) + (interaction-environment))) (pass-if-exception "(let* x (y))" exception:bad-bindings - (let* x (y))) + (eval '(let* x (y)) + (interaction-environment))) (pass-if-exception "(let* ((1 2)) 3)" exception:bad-var - (let* ((1 2)) 3))) + (eval '(let* ((1 2)) 3) + (interaction-environment)))) (with-test-prefix "bad body" @@ -314,15 +319,18 @@ (pass-if-exception "(letrec x ())" exception:bad-bindings - (letrec x ())) + (eval '(letrec x ()) + (interaction-environment))) (pass-if-exception "(letrec x (y))" exception:bad-bindings - (letrec x (y))) + (eval '(letrec x (y)) + (interaction-environment))) (pass-if-exception "(letrec ((1 2)) 3)" exception:bad-var - (letrec ((1 2)) 3))) + (eval '(letrec ((1 2)) 3) + (interaction-environment)))) (with-test-prefix "duplicate bindings" @@ -346,11 +354,13 @@ (pass-if-exception "(if)" exception:missing/extra-expr - (if)) + (eval '(if) + (interaction-environment))) (pass-if-exception "(if 1 2 3 4)" exception:missing/extra-expr - (if 1 2 3 4)))) + (eval '(if 1 2 3 4) + (interaction-environment))))) (with-test-prefix "cond" @@ -487,37 +497,45 @@ (pass-if-exception "(set!)" exception:missing/extra-expr - (set!)) + (eval '(set!) + (interaction-environment))) (pass-if-exception "(set! 1)" exception:missing/extra-expr - (set! 1)) + (eval '(set! 1) + (interaction-environment))) (pass-if-exception "(set! 1 2 3)" exception:missing/extra-expr - (set! 1 2 3))) + (eval '(set! 1 2 3) + (interaction-environment)))) (with-test-prefix "bad variable" (pass-if-exception "(set! \"\" #t)" exception:bad-var - (set! "" #t)) + (eval '(set! "" #t) + (interaction-environment))) (pass-if-exception "(set! 1 #t)" exception:bad-var - (set! 1 #t)) + (eval '(set! 1 #t) + (interaction-environment))) (pass-if-exception "(set! #t #f)" exception:bad-var - (set! #t #f)) + (eval '(set! #t #f) + (interaction-environment))) (pass-if-exception "(set! #f #t)" exception:bad-var - (set! #f #t)) + (eval '(set! #f #t) + (interaction-environment))) (pass-if-exception "(set! #\space #f)" exception:bad-var - (set! #\space #f)))) + (eval '(set! #\space #f) + (interaction-environment))))) (with-test-prefix "quote" @@ -525,8 +543,10 @@ (pass-if-exception "(quote)" exception:missing/extra-expr - (quote)) + (eval '(quote) + (interaction-environment))) (pass-if-exception "(quote a b)" exception:missing/extra-expr - (quote a b)))) + (eval '(quote a b) + (interaction-environment))))) |