20 lines
559 B
Clojure
20 lines
559 B
Clojure
(ns babashka.impl.socket-repl-test
|
|
(:require
|
|
[babashka.impl.socket-repl :refer [start-repl! stop-repl!]]
|
|
[babashka.test-utils :as tu]
|
|
[clojure.java.shell :refer [sh]]
|
|
[clojure.string :as str]
|
|
[clojure.test :as t :refer [deftest is]]))
|
|
|
|
(deftest socket-repl-test
|
|
(when tu/jvm?
|
|
(start-repl! "0.0.0.0:1666" {:env (atom {})})
|
|
(is (str/includes? (:out (sh "bash" "-c"
|
|
"echo \"(+ 1 2 3)\n:repl/exit\" | nc 127.0.0.1 1666"))
|
|
"bb=> 6"))
|
|
(stop-repl!)))
|
|
|
|
;;;; Scratch
|
|
|
|
(comment
|
|
)
|