From d94b8ee9383df27f8ab96b89e3b787f083ec524b Mon Sep 17 00:00:00 2001 From: Andrey Orst Date: Sun, 15 Nov 2020 14:10:19 +0300 Subject: fix(core): rename seq? to vector? --- cljlib.fnl | 2 +- tests/core.fnl | 20 ++++++++++---------- 2 files changed, 11 insertions(+), 11 deletions(-) diff --git a/cljlib.fnl b/cljlib.fnl index f25e321..d519383 100644 --- a/cljlib.fnl +++ b/cljlib.fnl @@ -44,7 +44,7 @@ arguments to `args`." (or (not= (type k) :number) (not= k 1))))))) -(fn* core.seq? +(fn* core.vector? "Check whether `tbl` is an sequential table." [tbl] (if (= (type tbl) :table) diff --git a/tests/core.fnl b/tests/core.fnl index f7dccd7..2481f02 100644 --- a/tests/core.fnl +++ b/tests/core.fnl @@ -129,13 +129,13 @@ (assert* (map? (empty {}))) (assert-not (map? (empty [])))) - (testing "seq?" - (assert-not (seq? [])) - (assert* (seq? [{:a 1}])) - (assert-not (seq? {})) - (assert-not (seq? {:a 1})) - (assert* (seq? (empty []))) - (assert-not (seq? (empty {})))) + (testing "vector?" + (assert-not (vector? [])) + (assert* (vector? [{:a 1}])) + (assert-not (vector? {})) + (assert-not (vector? {:a 1})) + (assert* (vector? (empty []))) + (assert-not (vector? (empty {})))) (testing "nil?" (assert* (nil?)) @@ -248,7 +248,7 @@ (assert-eq (filter even? (range 10)) [0 2 4 6 8]) (assert-eq (filter odd? (range 10)) [1 3 5 7 9]) (assert-eq (filter map? [{:a 1} {5 1} [1 2] [] {}]) [{:a 1} {5 1}]) - (assert-eq (filter seq? [{:a 1} {5 1} [1 2] [] {}]) [[1 2]])) + (assert-eq (filter vector? [{:a 1} {5 1} [1 2] [] {}]) [[1 2]])) (testing "concat" (assert-eq (concat) nil) @@ -574,8 +574,8 @@ (assert-not (gt 2 1 3)) (assert-not (gt 1 2 4 4)))) -(deftest vec - (testing "vec" +(deftest vector + (testing "vector" (assert-eq (vector) []) (assert-eq (vector 1) [1]) (assert-eq (vector 1 2 3) [1 2 3]) -- cgit v1.2.3