mes: Nyacc support: with-fluids.
[mes.git] / tests / fluids.test
index 1fedb16a2d72ec9634a90edf797ece29c2aeb43e..7e77cb086cea2365426b5d933ff0094e1629a0d9 100755 (executable)
@@ -50,20 +50,19 @@ exit $?
 ;;     0 (with-fluids* (list a b) '(0 1)
 ;;                     (lambda () (fluid-ref a))))
 
 ;;     0 (with-fluids* (list a b) '(0 1)
 ;;                     (lambda () (fluid-ref a))))
 
-;; (pass-if-equal "with-fluids"
-;;     0 (with-fluids ((a 1)
-;;                     (a 2)
-;;                     (a 3))
-;;         (begin (fluid-set! a 0))
-;;         (begin (fluid-ref a))))
+(pass-if-equal "with-fluids"
+    0 (with-fluids ((a 1)
+                    (a 2)
+                    (a 3))
+        (fluid-set! a 0)
+        (fluid-ref a)))
 
 
-;; (pass-if-equal "with-fluids"
-;;     #f (begin
-;;          (with-fluids ((a 1)
-;;                        (a 2)
-;;                        (a 3))
-;;            (begin (fluid-set! a 0))
-;;            (begin (display "X:") (display (fluid-ref a)) (newline)))
-;;          (fluid-ref a)))
+(pass-if-equal "with-fluids" ; FIXME: fails with Mes
+    #f (begin
+         (with-fluids ((a 1)
+                       (b 2))
+           (fluid-set! a 0)
+           (display "X:") (display (fluid-ref a)) (newline))
+         (fluid-ref a)))
 
 
-(result 'report)
+(result 'report (if mes? 1 0))