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

Add fn-call test

Browse source
This commit is contained in:
Michiel Borkent 2020-09-28 16:40:21 +02:00
parent c30aa61435
commit 7c39de6275
3 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
test-pod/pod/test_pod.clj
View file

@ -74,6 +74,8 @@
{"name" "return-nil"} {"name" "return-nil"}
{"name" "do-twice" {"name" "do-twice"
"code" "(defmacro do-twice [x] `(do ~x ~x))"} "code" "(defmacro do-twice [x] `(do ~x ~x))"}
{"name" "fn-call"
"code" "(defn fn-call [f x] (f x))"}
{"name" "reader-tag"} {"name" "reader-tag"}
;; returns thing with other tag ;; returns thing with other tag
{"name" "other-tag"} {"name" "other-tag"}

5
test-resources/test_program.clj
View file

@ -46,6 +46,8 @@
(def tagged (pod/reader-tag)) (def tagged (pod/reader-tag))
(def other-tagged (pod/other-tag)) (def other-tagged (pod/other-tag))
(def fn-called (pod.test-pod/fn-call inc 2))
(require '[pod.test-pod.loaded2 :as loaded2]) (require '[pod.test-pod.loaded2 :as loaded2])
(def loaded (loaded2/loaded 1)) (def loaded (loaded2/loaded 1))
@ -67,4 +69,5 @@
x9 x9
tagged tagged
other-tagged other-tagged
loaded] loaded
fn-called]

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

@ -21,7 +21,8 @@
9 9
[1 2 3] [1 2 3]
[[1] [1]] [[1] [1]]
2] 2
3]
(concat ret (repeat ::nil)))] (concat ret (repeat ::nil)))]
(if (instance? java.util.regex.Pattern expected) (if (instance? java.util.regex.Pattern expected)
(is (re-find expected actual)) (is (re-find expected actual))