revive tests for PRINT/READ serialization option

lfarm-test/closure-test.lisp

@@ -142,13 +142,15 @@
     (symbol-macrolet ((z (1+ x)))
       (submit-task *channel* (lambda (y) (+ x y z)) 4)
       (is (= 11 (receive-result *channel*)))))
-  (broadcast-task (lambda () (defclass stuff ()
-                               ((x :initarg :x)
-                                (y :initarg :y)))))
-  (let ((stuff (make-instance 'stuff :x 3 :y 4)))
-    (with-slots (x y) stuff
-      (submit-task *channel* (lambda () (+ x y)))
-      (is (= 7 (receive-result *channel*))))))
+  #-lfarm.with-text-serializer
+  (progn
+    (broadcast-task (lambda () (defclass stuff ()
+                                 ((x :initarg :x)
+                                  (y :initarg :y)))))
+    (let ((stuff (make-instance 'stuff :x 3 :y 4)))
+      (with-slots (x y) stuff
+        (submit-task *channel* (lambda () (+ x y)))
+        (is (= 7 (receive-result *channel*)))))))
 
 (let ((x 3))
   (deftask closure-add-3 (y)

lfarm-test/cognate-test.lisp

@@ -75,6 +75,7 @@
               (pmap 'vector (lambda (x) (* x x)) #(3 4 5 6))))
   (is (equalp (map  'vector (lambda (x) (* x x)) '(3 4 5 6))
               (pmap 'vector (lambda (x) (* x x)) '(3 4 5 6))))
+  #-lfarm.with-text-serializer
   (let ((type '(simple-array fixnum (*))))
     (is (equalp (map  type (lambda (x) (* x x)) #(3 4 5 6))
                 (pmap type (lambda (x) (* x x)) #(3 4 5 6))))

lfarm-test/promise-test.lisp

@@ -87,7 +87,7 @@
     (is (= 7 (force f)))
     (is (eq :foo (nth-value 1 (force f))))))
 
-#+lfarm.with-closures
+#+(and lfarm.with-closures (not lfarm.with-text-serializer))
 (remote-test future-closure-test
   (let ((x 5)
         (y 6))