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

vary ports across socket repl tests (#1539)

Browse source 
* use different port for socket repl tests

- update socket-command to socket-command-on-port, which
 takes a port and then returns the socket-command function
- change port numbers across tests

* undo little formatting change

* grr... newlines
This commit is contained in:
Bob 2023-04-18 03:47:40 -04:00 committed by GitHub
parent a945ea8146
commit 19bfd172fc
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 103 additions and 99 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -15,8 +15,9 @@
(set! *warn-on-reflection* true)
(defn socket-command [expr expected & [log?]]
(with-open [socket (java.net.Socket. "127.0.0.1" 1666)
(defn socket-command-on-port [^long port]
(fn [expr expected & [log?]]
(with-open [socket (java.net.Socket. "127.0.0.1" port)
reader (io/reader socket)
sw (java.io.StringWriter.)
writer (io/writer socket)]
@ -38,7 +39,7 @@
(recur)))))
(binding [*out* writer]
(println ":repl/quit\n"))
:success))
:success)))
(def server-process (volatile! nil))
@ -46,6 +47,7 @@
(deftest ^:flaky socket-repl-test
(when exec?
(let [socket-command (socket-command-on-port 1666)]
(try
(if tu/jvm?
(let [ctx (init {:namespaces main/namespaces
@ -74,10 +76,11 @@
(do (stop-repl!)
(ctx-store/reset-ctx! nil)
(Thread/sleep 100))
(p/destroy-tree @server-process))))))
(p/destroy-tree @server-process)))))))
(deftest ^:flaky socket-repl-opts-test
(when exec?
(let [socket-command (socket-command-on-port 1667)]
(try
(if tu/jvm?
(let [ctx (init {:bindings {'*command-line-args*
@ -86,11 +89,11 @@
:namespaces {'clojure.core.server clojure-core-server-namespace}
:features #{:bb}})]
(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 1667}"
ctx))
(do (vreset! server-process
(p/process ["./bb" "--socket-repl" "{:address \"localhost\" :accept clojure.core.server/repl :port 1666}"]))
(w/wait-for-port "localhost" 1666)))
(p/process ["./bb" "--socket-repl" "{:address \"localhost\" :accept clojure.core.server/repl :port 1667}"]))
(w/wait-for-port "localhost" 1667)))
(Thread/sleep 50)
(is (socket-command "(+ 1 2 3)" "user=> 6"))
(finally
@ -98,10 +101,11 @@
(do (stop-repl!)
(ctx-store/reset-ctx! nil)
(Thread/sleep 100))
(p/destroy-tree @server-process))))))
(p/destroy-tree @server-process)))))))
(deftest ^:flaky socket-prepl-test
(when exec?
(let [socket-command (socket-command-on-port 1668)]
(try
(if tu/jvm?
(let [ctx (init {:bindings {'*command-line-args*
@ -110,11 +114,11 @@
:namespaces {'clojure.core.server clojure-core-server-namespace}
:features #{:bb}})]
(ctx-store/reset-ctx! ctx)
(start-repl! "{:address \"localhost\" :accept clojure.core.server/io-prepl :port 1666}"
(start-repl! "{:address \"localhost\" :accept clojure.core.server/io-prepl :port 1668}"
ctx))
(do (vreset! server-process
(p/process ["./bb" "--socket-repl" "{:address \"localhost\" :accept clojure.core.server/io-prepl :port 1666}"]))
(w/wait-for-port "localhost" 1666)))
(p/process ["./bb" "--socket-repl" "{:address \"localhost\" :accept clojure.core.server/io-prepl :port 1668}"]))
(w/wait-for-port "localhost" 1668)))
(Thread/sleep 50)
(is (socket-command "(+ 1 2 3)" (fn [s]
(let [m (edn/read-string s)]
@ -126,7 +130,7 @@
(do (stop-repl!)
(ctx-store/reset-ctx! nil)
(Thread/sleep 100))
(p/destroy-tree @server-process))))))
(p/destroy-tree @server-process)))))))
;;;; Scratch
@ -141,5 +145,5 @@
'*command-line-args*
["a" "b" "c"]}
:env (atom {})})
(socket-command "(+ 1 2 3)" "6")
((socket-command-on-port 1666) "(+ 1 2 3)" "6")
)