Restricted iterator tests to JVM

Author: Paula Gearon

test/tiara/data_test.cljc

@@ -35,19 +35,21 @@
     (is (= (seq (apply array-map (make-kv-range 20)))
            (seq (apply ordered-map (make-kv-range 20)))))))
 
-(defn- drain-iterable
-  "Similar to iterator-seq, without chunking"
-  [i]
-  (let [^java.util.Iterator it (.iterator ^Iterable i)]
-    (loop [v []]
-      (if (.hasNext it)
-        (recur (conj v (.next it)))
-        v))))
-
-(deftest test-iterable
-  (testing "Testing the iterable interface"
-    (is (= [] (drain-iterable (ordered-map))))
-    (is (= [[:a 1] [:b 2]] (drain-iterable (ordered-map :a 1 :b 2))))))
+#?(:clj
+  (defn- drain-iterable
+    "Similar to iterator-seq, without chunking"
+    [i]
+    (let [^java.util.Iterator it (.iterator ^Iterable i)]
+      (loop [v []]
+        (if (.hasNext it)
+          (recur (conj v (.next it)))
+          v)))))
+
+#?(:clj
+  (deftest test-iterable
+    (testing "Testing the iterable interface"
+      (is (= [] (drain-iterable (ordered-map))))
+      (is (= [[:a 1] [:b 2]] (drain-iterable (ordered-map :a 1 :b 2)))))))
 
 (deftest test-assoc
   (testing "equivalence of maps constructed using assoc"