diff options
| author | Kevin Ryde <user42@zip.com.au> | 2004-01-11 00:18:25 +0000 |
|---|---|---|
| committer | Kevin Ryde <user42@zip.com.au> | 2004-01-11 00:18:25 +0000 |
| commit | 8081c3fb51b70c623c728a4ebf5d23ee735d3a1f (patch) | |
| tree | 85f174a84074436e6ce95f33f6409c622a9a8bb8 /test-suite/tests/exceptions.test | |
| parent | 9afa7a12f20c413b702f3e792dc2bde149c3718d (diff) | |
| download | guile-8081c3fb51b70c623c728a4ebf5d23ee735d3a1f.tar.gz | |
* tests/exceptions.test (false-if-exception): Disable tests on
referencing expansion environment, reverted.
Diffstat (limited to 'test-suite/tests/exceptions.test')
| -rw-r--r-- | test-suite/tests/exceptions.test | 35 |
1 files changed, 19 insertions, 16 deletions
diff --git a/test-suite/tests/exceptions.test b/test-suite/tests/exceptions.test index 05f464563..aedd53617 100644 --- a/test-suite/tests/exceptions.test +++ b/test-suite/tests/exceptions.test @@ -63,22 +63,25 @@ (lambda (x y . rest) #f))))) (with-test-prefix "false-if-exception" - + (pass-if (false-if-exception #t)) (pass-if (not (false-if-exception #f))) (pass-if (not (false-if-exception (error "xxx")))) - - (with-test-prefix "in empty environment" - ;; an environment with no bindings at all - (define empty-environment - (make-module 1)) - - (pass-if "#t" - (eval `(,false-if-exception #t) - empty-environment)) - (pass-if "#f" - (not (eval `(,false-if-exception #f) - empty-environment))) - (pass-if "exception" - (not (eval `(,false-if-exception (,error "xxx")) - empty-environment))))) + + ;; Not yet working. + ;; + ;; (with-test-prefix "in empty environment" + ;; ;; an environment with no bindings at all + ;; (define empty-environment + ;; (make-module 1)) + ;; + ;; (pass-if "#t" + ;; (eval `(,false-if-exception #t) + ;; empty-environment)) + ;; (pass-if "#f" + ;; (not (eval `(,false-if-exception #f) + ;; empty-environment))) + ;; (pass-if "exception" + ;; (not (eval `(,false-if-exception (,error "xxx")) + ;; empty-environment)))) + ) |