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

babashka.pods: unload-pod

Browse source
This commit is contained in:
Michiel Borkent 2020-05-20 20:13:00 +02:00
parent 1c26ff2844
commit 6648a9aa0c
3 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
babashka.pods

@ -1 +1 @@
Subproject commit 98d4f814323c50c3ea5427896c0eba6c40224bdc Subproject commit 3e5637b33fa22aa4a50c22d078e2031b34e8bd5a

3
src/babashka/impl/pods.clj
View file

@ -6,4 +6,5 @@
(def pods-namespace (def pods-namespace
{'load-pod (with-meta pods/load-pod {'load-pod (with-meta pods/load-pod
{:sci.impl/op :needs-ctx}) {:sci.impl/op :needs-ctx})
'invoke pods/invoke}) 'invoke pods/invoke
'unload-pod pods/unload-pod})

4
test-resources/pod.clj
View file

@ -56,7 +56,7 @@
"code" " "code" "
(defn range-stream [val-cb done-cb & args] (defn range-stream [val-cb done-cb & args]
(babashka.pods/invoke \"pod.test-pod\" 'pod.test-pod/range-stream* args (babashka.pods/invoke \"pod.test-pod\" 'pod.test-pod/range-stream* args
{:handlers {:success #(val-cb (:value %)) :done (fn [m] (done-cb m))}}) {:handlers {:success val-cb :done done-cb}})
nil)"} nil)"}
{"name" "assoc"} {"name" "assoc"}
{"name" "error"} {"name" "error"}
@ -135,7 +135,7 @@
(debug "Running async range test") (debug "Running async range test")
(let [prom (promise)] (let [prom (promise)]
((resolve 'pod.test-pod/range-stream) ((resolve 'pod.test-pod/range-stream)
prn (fn [_] (deliver prom :ok)) 1 10) prn (fn [] (deliver prom :ok)) 1 10)
@prom) @prom)
(debug "Running exception test") (debug "Running exception test")
(prn (try ((resolve 'pod.test-pod/error) 1 2 3) (prn (try ((resolve 'pod.test-pod/error) 1 2 3)