[#36] Printing in lazy value doesn't print in client

babashka · Feb 12, 2021 · 15ff3c1 · 15ff3c1
1 parent 9c424a0
commit 15ff3c1
Showing 1 changed file with 14 additions and 1 deletion.
diff --git a/test/babashka/nrepl/server_test.clj b/test/babashka/nrepl/server_test.clj
@@ -260,7 +260,20 @@
                      (if (= status ["done"])
                        output
                        (recur (str output out)))))))))
-
+      (testing "output in lazy seq"
+        (bencode/write-bencode os {"op" "eval"
+                                   "code" (str '(map
+                                                 (fn [x]
+                                                   (println "It prints in client" x)
+                                                   (inc x)) [10 20]))
+                                   "session" session "id" (new-id!)})
+        (is (str/includes?
+             (loop [output ""]
+               (let [{:keys [status out]} (read-reply in session @id)]
+                 (if (= status ["done"])
+                   output
+                   (recur (str output out)))))
+             "It prints in client")))
       (testing "error"
         (bencode/write-bencode os {"op" "eval" "code" "(binding [*out* *err*] (dotimes [i 3] (println \"Hello\")))"
                                    "session" session "id" (new-id!)})