CLJS-1353: range inconsistent with Clojure if step is 0 Changed the implementation to match Clojure's and also updated tests. Used == instead of =

Author: kamn

src/main/cljs/cljs/core.cljs

@@ -8430,11 +8430,10 @@ reduces them without incurring seq initialization"
 
   ISeqable
   (-seq [rng]
-    (if (pos? step)
-      (when (< start end)
-        rng)
-      (when (> start end)
-        rng)))
+    (cond
+      (pos? step) (when (< start end) rng)
+      (neg? step) (when (> start end) rng)
+      :else       (when-not (== start end) rng)))
 
   ISeq
   (-first [rng]

src/test/cljs/cljs/core_test.cljs

@@ -1221,11 +1221,11 @@
     (is (= (range 0 -3 -1) (list 0 -1 -2)))
     (is (= (range 3 0 -1) (list 3 2 1)))
     (is (= (range 0 10 -1) (list)))
-    (is (= (range 0 1 0) (list)))
+    (is (= (take 3 (range 0 1 0)) (list 0 0 0)))
     (is (= (range 10 0 1) (list)))
     (is (= (range 0 0 0) (list)))
     (is (= (count (range 0 10 -1)) 0))
-    (is (= (count (range 0 1 0)) 0))
+    (is (= (count (take 3 (range 0 2 0))) 3))
     (is (= (count (range 10 0 1)) 0))
     (is (= (count (range 0 0 0)) 0))
     (is (= (take 3 (range 1 0 0)) (list 1 1 1)))