Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

tests for CLJS-739

  • Loading branch information...
commit aaae2688aa2646bb252a9a4dd321e9fa8dbedb6a 1 parent 78d20ee
@swannodette swannodette authored
Showing with 12 additions and 0 deletions.
  1. +12 −0 test/cljs/cljs/core_test.cljs
View
12 test/cljs/cljs/core_test.cljs
@@ -2115,5 +2115,17 @@
(assert (= x 1))
(assert (= y 2)))
+ ;; CLJS-739
+
+ (defn cljs-739 [arr names]
+ (let [name (first names)]
+ (if name
+ (recur (conj arr (fn [] (println name)))
+ (rest names))
+ arr)))
+
+ (assert (= (with-out-str (doseq [fn (cljs-739 [] [:a :b :c :d])] (fn)))
+ ":a\n:b\n:c\n:d\n"))
+
:ok
)
Please sign in to comment.
Something went wrong with that request. Please try again.