mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +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

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

@ -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))))
)