Michiel Borkent 2023-10-14 21:11:49 +02:00
parent 9da7af58b3
commit a5e4dfe663
2 changed files with 5 additions and 3 deletions

@ -1 +1 @@
Subproject commit ce540ad2c50f3cc3e6ed1131132074ccca41655a
Subproject commit 37128afb5a91fff673349c11a9c195c80d2d1725

View file

@ -67,9 +67,11 @@
(let [msg (read-reply in session @id)
id (:id 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 (= main/version babashka-version))))
(is (= main/version babashka-version))
(is (contains? ops "classpath"))))
(testing "eval"
(bencode/write-bencode os {"op" "eval" "code" "(+ 1 2 3)" "session" session "id" (new-id!)})
(let [msg (read-reply in session @id)