Add fn-call test

test-pod/pod/test_pod.clj

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

test-resources/test_program.clj

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

test/babashka/pods/test_common.clj

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