test self-host higher order invoke

Author: swannodette

src/test/cljs/self_host/test.cljs

@@ -69,7 +69,7 @@
 
 (deftest test-eval-str
   (async done
-    (let [l (latch 3 done)]
+    (let [l (latch 4 done)]
       (cljs/eval-str st "(+ 1 1)" nil
         {:eval node-eval}
         (fn [{:keys [error value]}]
@@ -91,6 +91,14 @@
         (fn [{:keys [error value]}]
           (is (nil? error))
           (is (fn? value))
+          (inc! l)))
+      (cljs/eval-str st "((fn [a b] (+ a b)) 1 2)" nil
+        {:eval node-eval
+         :context :expr
+         :def-emits-var true}
+        (fn [{:keys [error value]}]
+          (is (nil? error))
+          (is (== 3))
           (inc! l))))))
 
 (defn -main [& args]