socket repl tests

This commit is contained in:
Michiel Borkent 2019-12-07 22:17:26 +01:00
parent bd78a85221
commit d67c21f646

View file

@ -23,7 +23,11 @@
(println l)) (println l))
(when-not (str/includes? l expected) (when-not (str/includes? l expected)
(recur)))) (recur))))
(str sw))) (let [s (str sw)]
(is (str/includes? s expected)
(format "\"%s\" does not contain \"%s\""
s expected))
s)))
(deftest socket-repl-test (deftest socket-repl-test
(try (try
@ -65,6 +69,7 @@
(comment (comment
(socket-repl-test) (socket-repl-test)
(t/run-tests)
(stop-repl!) (stop-repl!)
(start-repl! "0.0.0.0:1666" {:bindings {(with-meta '*in* (start-repl! "0.0.0.0:1666" {:bindings {(with-meta '*in*
{:sci/deref! true}) {:sci/deref! true})