This commit is contained in:
Michiel Borkent 2023-09-28 15:27:03 +02:00
parent d1580f1a72
commit 9ae36491b7

View file

@ -196,7 +196,9 @@
(let [reply (read-reply in session @id)] (let [reply (read-reply in session @id)]
(is (= "true" (:value reply))))) (is (= "true" (:value reply)))))
(testing "classpath op" (testing "classpath op"
(cp/add-classpath "src:test") (bencode/write-bencode os {"op" "eval" "code" "(babashka.classpath/add-classpath \"test-resources/babashka/src_for_classpath_test\")"
"session" session "id" (new-id!)})
(read-reply in session @id)
(bencode/write-bencode os {"op" "classpath" (bencode/write-bencode os {"op" "classpath"
"session" session "id" (new-id!)}) "session" session "id" (new-id!)})
(let [reply (read-reply in session @id) (let [reply (read-reply in session @id)