luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix socket repl tests

Browse source
This commit is contained in:
Michiel Borkent 2022-11-19 11:21:23 +01:00
parent b458d79b29
commit 40e0087b59
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
test/babashka/impl/socket_repl_test.clj
View file

@ -10,6 +10,7 @@
[clojure.java.io :as io] [clojure.java.io :as io]
[clojure.string :as str] [clojure.string :as str]
[clojure.test :as t :refer [deftest is testing]] [clojure.test :as t :refer [deftest is testing]]
[sci.ctx-store :as ctx-store]
[sci.impl.opts :refer [init]])) [sci.impl.opts :refer [init]]))
(set! *warn-on-reflection* true) (set! *warn-on-reflection* true)
@ -48,7 +49,7 @@
(if tu/jvm? (if tu/jvm?
(let [ctx (init {:namespaces {'clojure.core.server clojure-core-server-namespace} (let [ctx (init {:namespaces {'clojure.core.server clojure-core-server-namespace}
:features #{:bb}})] :features #{:bb}})]
(vreset! common/ctx (fn [] ctx)) (ctx-store/reset-ctx! ctx)
(start-repl! "0.0.0.0:1666" ctx)) (start-repl! "0.0.0.0:1666" ctx))
(do (vreset! server-process (do (vreset! server-process
(p/process ["./bb" "socket-repl" "localhost:1666"])) (p/process ["./bb" "socket-repl" "localhost:1666"]))
@ -68,7 +69,7 @@
(finally (finally
(if tu/jvm? (if tu/jvm?
(do (stop-repl!) (do (stop-repl!)
(vreset! common/ctx nil) (ctx-store/reset-ctx! nil)
(Thread/sleep 100)) (Thread/sleep 100))
(p/destroy-tree @server-process)))))) (p/destroy-tree @server-process))))))
@ -81,7 +82,7 @@
:env (atom {}) :env (atom {})
:namespaces {'clojure.core.server clojure-core-server-namespace} :namespaces {'clojure.core.server clojure-core-server-namespace}
:features #{:bb}})] :features #{:bb}})]
(vreset! common/ctx (fn [] ctx)) (ctx-store/reset-ctx! ctx)
(start-repl! "{:address \"localhost\" :accept clojure.core.server/repl :port 1666}" (start-repl! "{:address \"localhost\" :accept clojure.core.server/repl :port 1666}"
ctx)) ctx))
(do (vreset! server-process (do (vreset! server-process
@ -92,7 +93,7 @@
(finally (finally
(if tu/jvm? (if tu/jvm?
(do (stop-repl!) (do (stop-repl!)
(vreset! common/ctx nil) (ctx-store/reset-ctx! nil)
(Thread/sleep 100)) (Thread/sleep 100))
(p/destroy-tree @server-process)))))) (p/destroy-tree @server-process))))))