add with-fluids objects and primitive syntax

[bpt/guile.git] / test-suite / tests / fluids.test

diff --git a/test-suite/tests/fluids.test b/test-suite/tests/fluids.test
index 6eb5095..f00fdc4 100644 (file)
--- a/test-suite/tests/fluids.test
+++ b/test-suite/tests/fluids.test
@@ -35,7 +35,7 @@
     (with-fluids ((c #t))
       c))
   
-  (expect-fail "fluids not modified if nonfluid passed to with-fluids"
+  (pass-if "fluids not modified if nonfluid passed to with-fluids"
     (catch 'wrong-type-arg
       (lambda ()
         (with-fluids ((a #t)