Permalink
Browse files

tests for CLJS-739

  • Loading branch information...
1 parent 78d20ee commit aaae2688aa2646bb252a9a4dd321e9fa8dbedb6a @swannodette swannodette committed Feb 24, 2014
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
)

0 comments on commit aaae268

Please sign in to comment.