diff options
| author | Andrey Orst <andreyorst@gmail.com> | 2020-11-15 19:27:07 +0300 |
|---|---|---|
| committer | Andrey Orst <andreyorst@gmail.com> | 2020-11-15 19:27:07 +0300 |
| commit | 98e824f59fbddac056afac108ee5b5fc2c7b8963 (patch) | |
| tree | 1cb0fdea1ea058259a4eb5e1e91fae27484461bc /tests/core.fnl | |
| parent | aec65aee793ece4416d7f5f50fc3a326deba8917 (diff) | |
fix(core): fix seq function not handling tables with number keys
Diffstat (limited to 'tests/core.fnl')
| -rw-r--r-- | tests/core.fnl | 4 |
1 files changed, 2 insertions, 2 deletions
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) |