From 133ef660af79f3f653df2d029f1cadc20a1c42c9 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 17 Dec 2010 13:53:29 +0100 Subject: [PATCH] fix unbound fluid tests * test-suite/tests/fluids.test: Fix tests. --- test-suite/tests/fluids.test | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/test-suite/tests/fluids.test b/test-suite/tests/fluids.test index 23406b260..9ed846c05 100644 --- a/test-suite/tests/fluids.test +++ b/test-suite/tests/fluids.test @@ -151,14 +151,14 @@ (with-test-prefix "unbound fluids" (pass-if "fluid-ref of unbound fluid" (catch #t - (lambda () (fluid-ref (make-undefined-fluid))) + (lambda () (fluid-ref (make-unbound-fluid))) (lambda (key . args) #t))) (pass-if "fluid-bound? of bound fluid" (fluid-bound? (make-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" - (let ((fluid (make-undefined-fluid))) + (let ((fluid (make-unbound-fluid))) (fluid-set! fluid #t) (fluid-ref fluid))) (pass-if "bound fluids can be unset"