mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

* tests/exceptions.test (false-if-exception): Disable tests on

Browse source 
referencing expansion environment, reverted.
This commit is contained in:
Kevin Ryde 2004-01-11 00:18:25 +00:00
parent 9afa7a12f2
commit 8081c3fb51
1 changed files with 19 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

31
test-suite/tests/exceptions.test
View file

@ -68,17 +68,20 @@
(pass-if (not (false-if-exception #f))) (pass-if (not (false-if-exception #f)))
(pass-if (not (false-if-exception (error "xxx")))) (pass-if (not (false-if-exception (error "xxx"))))
(with-test-prefix "in empty environment" ;; Not yet working.
;; an environment with no bindings at all ;;
(define empty-environment ;; (with-test-prefix "in empty environment"
(make-module 1)) ;; ;; an environment with no bindings at all
;; (define empty-environment
(pass-if "#t" ;; (make-module 1))
(eval `(,false-if-exception #t) ;;
empty-environment)) ;; (pass-if "#t"
(pass-if "#f" ;; (eval `(,false-if-exception #t)
(not (eval `(,false-if-exception #f) ;; empty-environment))
empty-environment))) ;; (pass-if "#f"
(pass-if "exception" ;; (not (eval `(,false-if-exception #f)
(not (eval `(,false-if-exception (,error "xxx")) ;; empty-environment)))
empty-environment))))) ;; (pass-if "exception"
;; (not (eval `(,false-if-exception (,error "xxx"))
;; empty-environment))))
)