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

Add Iterable

Browse source
This commit is contained in:
Michiel Borkent 2020-11-18 22:53:21 +01:00
parent c94b4f9148
commit 86ea4bbc9a
2 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/babashka/impl/classes.clj
View file

@ -115,7 +115,7 @@
java.lang.Exception java.lang.Exception
java.lang.Float java.lang.Float
java.lang.Integer java.lang.Integer
;; java.lang.Iterable ;; meander java.lang.Iterable
java.lang.Long java.lang.Long
java.lang.Number java.lang.Number
java.lang.NumberFormatException java.lang.NumberFormatException

10
test/babashka/main_test.clj
View file

@ -558,6 +558,16 @@
(deftest java-stream-test (deftest java-stream-test
(is (every? number? (bb nil "(take 2 (iterator-seq (.iterator (.doubles (java.util.Random.)))))")))) (is (every? number? (bb nil "(take 2 (iterator-seq (.iterator (.doubles (java.util.Random.)))))"))))
(deftest iterable-test
(is (true? (bb nil "
(defn iter [coll]
(if (instance? java.lang.Iterable coll)
(.iterator ^java.lang.Iterable coll)
(let [s (or (seq coll) [])]
(.iterator ^java.lang.Iterable s))))
(= [1 2 3] (iterator-seq (iter [1 2 3])))"))))
;;;; Scratch ;;;; Scratch
(comment (comment