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

0.2.4

Browse source
This commit is contained in:
Michiel Borkent 2020-11-27 09:37:39 +01:00
parent 3f9e137df2
commit fc11d6d0cb
2 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
CHANGELOG.md
View file

@ -2,7 +2,7 @@
For a list of breaking changes, check [here](#breaking-changes). For a list of breaking changes, check [here](#breaking-changes).
## v0.2.4-SNAPSHOT (unreleased) ## v0.2.4
Thanks to [Nextjournal](https://nextjournal.com/) for funding work on Thanks to [Nextjournal](https://nextjournal.com/) for funding work on
prepl. Thanks to the community for taking the time to create issues, discussions prepl. Thanks to the community for taking the time to create issues, discussions

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

@ -4,12 +4,11 @@
[babashka.impl.socket-repl :refer [start-repl! stop-repl!]] [babashka.impl.socket-repl :refer [start-repl! stop-repl!]]
[babashka.main :refer [clojure-core-server]] [babashka.main :refer [clojure-core-server]]
[babashka.process :as p] [babashka.process :as p]
[babashka.wait :as w]
[babashka.test-utils :as tu] [babashka.test-utils :as tu]
[clojure.java.io :as io] [babashka.wait :as w]
[clojure.java.shell :refer [sh]]
[clojure.string :as str]
[clojure.edn :as edn] [clojure.edn :as edn]
[clojure.java.io :as io]
[clojure.string :as str]
[clojure.test :as t :refer [deftest is testing]] [clojure.test :as t :refer [deftest is testing]]
[sci.impl.opts :refer [init]])) [sci.impl.opts :refer [init]]))
@ -65,7 +64,8 @@
(is (socket-command "(ns foo.bar) (ns-name *ns*)" "foo.bar"))) (is (socket-command "(ns foo.bar) (ns-name *ns*)" "foo.bar")))
(finally (finally
(if tu/jvm? (if tu/jvm?
(stop-repl!) (do (stop-repl!)
(Thread/sleep 100))
(p/destroy-tree @server-process))))) (p/destroy-tree @server-process)))))
(deftest socket-repl-opts-test (deftest socket-repl-opts-test
@ -86,7 +86,8 @@
(is (socket-command "(+ 1 2 3)" "user=> 6")) (is (socket-command "(+ 1 2 3)" "user=> 6"))
(finally (finally
(if tu/jvm? (if tu/jvm?
(stop-repl!) (do (stop-repl!)
(Thread/sleep 100))
(p/destroy-tree @server-process))))) (p/destroy-tree @server-process)))))
(deftest socket-prepl-test (deftest socket-prepl-test
@ -111,7 +112,8 @@
(= "(+ 1 2 3)" (:form m))))))) (= "(+ 1 2 3)" (:form m)))))))
(finally (finally
(if tu/jvm? (if tu/jvm?
(stop-repl!) (do (stop-repl!)
(Thread/sleep 100))
(p/destroy-tree @server-process))))) (p/destroy-tree @server-process)))))
;;;; Scratch ;;;; Scratch