mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

fix unbound fluid tests

Browse source 
* test-suite/tests/fluids.test: Fix tests.
This commit is contained in:
Andy Wingo 2010-12-17 13:53:29 +01:00
parent 27e346064e
commit 133ef660af
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test-suite/tests/fluids.test
View file

@ -151,14 +151,14 @@
(with-test-prefix "unbound fluids" (with-test-prefix "unbound fluids"
(pass-if "fluid-ref of unbound fluid" (pass-if "fluid-ref of unbound fluid"
(catch #t (catch #t
(lambda () (fluid-ref (make-undefined-fluid))) (lambda () (fluid-ref (make-unbound-fluid)))
(lambda (key . args) #t))) (lambda (key . args) #t)))
(pass-if "fluid-bound? of bound fluid" (pass-if "fluid-bound? of bound fluid"
(fluid-bound? (make-fluid))) (fluid-bound? (make-fluid)))
(pass-if "fluid-bound? of unbound fluid" (pass-if "fluid-bound? of unbound fluid"
(not (fluid-bound? (make-undefined-fluid)))) (not (fluid-bound? (make-unbound-fluid))))
(pass-if "unbound fluids can be set" (pass-if "unbound fluids can be set"
(let ((fluid (make-undefined-fluid))) (let ((fluid (make-unbound-fluid)))
(fluid-set! fluid #t) (fluid-set! fluid #t)
(fluid-ref fluid))) (fluid-ref fluid)))
(pass-if "bound fluids can be unset" (pass-if "bound fluids can be unset"