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

Add compatibility with babashka scripts

Browse source
This commit is contained in:
Michiel Borkent 2020-05-09 15:25:29 +02:00
parent 3ab9aa9606
commit 85c802ef97
3 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
README.md
View file

@ -14,7 +14,7 @@ an example pod.
On the JVM: On the JVM:
``` clojure ``` clojure
(require '[babashka.pods.jvm :as pods]) (require '[babashka.pods :as pods])
(pods/load-pod "pod-babashka-hsqldb") (pods/load-pod "pod-babashka-hsqldb")
(require '[pod.babashka.hsqldb :as sql]) (require '[pod.babashka.hsqldb :as sql])

6
src/babashka/pods.clj Normal file
View file

@ -0,0 +1,6 @@
(ns babashka.pods
(:require [babashka.pods.jvm :as jvm]))
(defn load-pod
([pod-spec] (load-pod pod-spec nil))
([pod-spec opts] (jvm/load-pod pod-spec opts)))

3
test/babashka/pods/jvm_test.clj
View file

@ -1,6 +1,5 @@
(ns babashka.pods.jvm-test (ns babashka.pods.jvm-test
(:require [babashka.pods.test-common :refer [test-program]] (:require [babashka.pods.test-common :refer [test-program]]
[clojure.string :as str]
[clojure.test :refer [deftest is]])) [clojure.test :refer [deftest is]]))
(deftest jvm-test (deftest jvm-test
@ -9,7 +8,7 @@
ret (binding [*out* out ret (binding [*out* out
*err* err] *err* err]
(try (load-string (try (load-string
(str/replace test-program "babashka.pods" "babashka.pods.jvm")) test-program)
(catch Exception e (prn e))))] (catch Exception e (prn e))))]
(is (= '[{:a 1, :b 2} (is (= '[{:a 1, :b 2}