This commit is contained in:
parent
9da7af58b3
commit
a5e4dfe663
2 changed files with 5 additions and 3 deletions
|
|
@ -1 +1 @@
|
||||||
Subproject commit ce540ad2c50f3cc3e6ed1131132074ccca41655a
|
Subproject commit 37128afb5a91fff673349c11a9c195c80d2d1725
|
||||||
|
|
@ -67,9 +67,11 @@
|
||||||
(let [msg (read-reply in session @id)
|
(let [msg (read-reply in session @id)
|
||||||
id (:id msg)
|
id (:id msg)
|
||||||
versions (:versions msg)
|
versions (:versions msg)
|
||||||
babashka-version (bytes->str (get versions "babashka"))]
|
babashka-version (bytes->str (get versions "babashka"))
|
||||||
|
ops (:ops msg)]
|
||||||
(is (= 1 id))
|
(is (= 1 id))
|
||||||
(is (= main/version babashka-version))))
|
(is (= main/version babashka-version))
|
||||||
|
(is (contains? ops "classpath"))))
|
||||||
(testing "eval"
|
(testing "eval"
|
||||||
(bencode/write-bencode os {"op" "eval" "code" "(+ 1 2 3)" "session" session "id" (new-id!)})
|
(bencode/write-bencode os {"op" "eval" "code" "(+ 1 2 3)" "session" session "id" (new-id!)})
|
||||||
(let [msg (read-reply in session @id)
|
(let [msg (read-reply in session @id)
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue