diff options
| author | Andrey Orst <andreyorst@gmail.com> | 2020-11-15 16:15:12 +0300 |
|---|---|---|
| committer | Andrey Orst <andreyorst@gmail.com> | 2020-11-15 16:15:12 +0300 |
| commit | db5da6cdc78cce6634f28c26f8a230683273908a (patch) | |
| tree | 2cc2731f9801ca91ec68ddfffeeb6bfae38e932a /tests | |
| parent | d94b8ee9383df27f8ab96b89e3b787f083ec524b (diff) | |
feature(core): implement `reduced`
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/core.fnl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/core.fnl b/tests/core.fnl index 2481f02..3939458 100644 --- a/tests/core.fnl +++ b/tests/core.fnl @@ -315,6 +315,19 @@ (assert-not (pcall reduce-kv #(+ $1 $3))) (assert-not (pcall reduce-kv))) + (testing "reduced" + (assert-eq (reduce #(if (> $1 10) (reduced -1) (+ $1 $2)) [1]) 1) + (assert-eq (reduce #(if (> $1 10) (reduced -1) (+ $1 $2)) [1 2]) 3) + (assert-eq (reduce #(if (> $1 10) (reduced -1) (+ $1 $2)) [1 2 3 4]) 10) + (assert-eq (reduce #(if (> $1 10) (reduced -1) (+ $1 $2)) [1 2 3 4 5]) 15) + (assert-eq (reduce #(if (> $1 10) (reduced -1) (+ $1 $2)) [1 2 3 4 5 6]) -1) + (assert-eq (reduce #(if (> $1 10) (reduced -1) (+ $1 $2)) 10 [1]) 11) + (assert-eq (reduce #(if (> $1 10) (reduced -1) (+ $1 $2)) 10 [1 2]) -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 10 :b 2}) -1)) + (testing "assoc" (assert-not (pcall assoc)) (assert-not (pcall assoc {})) |