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

Review comments

Browse source
This commit is contained in:
Noah Bogart 2024-05-13 11:58:45 -04:00
parent 59cd6a829a
commit 143d2f1326
2 changed files with 4 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
feature-yaml/babashka/impl/ordered.clj
View file

@ -7,7 +7,7 @@
(def omap-ns (sci/create-ns 'flatland.ordered.map nil))
(def oset-ns (sci/create-ns 'flatland.ordered.set nil))
(def ordered-ns
(def ordered-map-ns
{'ordered-map (sci/copy-var omap/ordered-map omap-ns)})
(def ordered-set-ns

16
test-resources/pod.clj
View file

@ -50,8 +50,7 @@
(do (write {"format" (if (= format :json)
"json"
"edn")
"readers" {"ordered/map" "flatland.ordered.map/ordered-map"
"ordered/set" "flatland.ordered.set/ordered-set"}
"readers" {"ordered/map" "flatland.ordered.map/ordered-map"}
"namespaces"
[{"name" "pod.test-pod"
"vars" [{"name" "add-sync"}
@ -65,8 +64,7 @@
{"name" "error"}
{"name" "print"}
{"name" "print-err"}
{"name" "ordered-map"}
{"name" "ordered-set"}]}]
{"name" "ordered-map"}]}]
"ops" {"shutdown" {}}})
(recur))
:invoke (let [var (-> (get message "var")
@ -121,11 +119,6 @@
pod.test-pod/ordered-map
(write
{"value" "#ordered/map([:a 1] [:b 2])"
"status" ["done"]
"id" id})
pod.test-pod/ordered-set
(write
{"value" "#ordered/set([:a 1 :b 2])"
"status" ["done"]
"id" id}))
(recur))
@ -166,7 +159,4 @@
(debug "Running reader test")
(require '[flatland.ordered.map :refer [ordered-map]])
(prn (= ((resolve 'flatland.ordered.map/ordered-map) :a 1 :b 2)
((resolve 'pod.test-pod/ordered-map))))
(require '[flatland.ordered.set :refer [ordered-set]])
(prn (= ((resolve 'flatland.ordered.set/ordered-set) :a 1 :b 2)
((resolve 'pod.test-pod/ordered-set)))))))))
((resolve 'pod.test-pod/ordered-map)))))))))