diff options
| -rw-r--r-- | cljlib.fnl | 2 | ||||
| -rw-r--r-- | tests/core.fnl | 4 |
2 files changed, 3 insertions, 3 deletions
@@ -273,7 +273,7 @@ Additionally you can use [`conj`](#conj) and [`apply`](#apply) with (let [assoc-res (empty [])] (each [k v (pairs col)] (if (and (not assoc?) - (not (= (type k) :number))) + (map? col)) (set assoc? true)) (insert res v) (insert assoc-res [k v])) diff --git a/tests/core.fnl b/tests/core.fnl index d5aa57b..5dc4953 100644 --- a/tests/core.fnl +++ b/tests/core.fnl @@ -181,7 +181,8 @@ (assert-eq (seq [1 2 3]) [1 2 3]) (assert-eq (seq {:a 1}) [["a" 1]]) (assert-eq (seq "abc") ["a" "b" "c"]) - (assert-eq (seq "абв") ["а" "б" "в"])) + (assert-eq (seq "абв") ["а" "б" "в"]) + (assert-eq (seq {12345 123}) [[12345 123]])) (testing "mapv" (assert-not (pcall mapv)) @@ -328,7 +329,6 @@ (assert-eq (reduce #(if (> $1 10) (reduced -1) (+ $1 $2)) 0 [10 5]) 15) (assert-eq (reduce #(if (> $1 10) (reduced -1) (+ $1 $2)) 1 [10 7]) -1) - (assert-eq (reduce-kv (fn [res _ v] (if (> res 10) (reduced -1) (+ res v))) 0 {:a 1 :b 2}) 3) (assert-eq (reduce-kv (fn [res _ v] (if (> res 10) (reduced -1) (+ res v))) 0 {:a 10 :b 2}) 12) (assert-eq (reduce-kv (fn [res _ v] (if (> res 10) (reduced -1) (+ res v))) 1 {:a 3 :b 3 :c 3 :d 3}) 13) |