From a71664478ed365293e99a51e212e813097da58f9 Mon Sep 17 00:00:00 2001
From: Andrey Orst <andreyorst@gmail.com>
Date: Sat, 24 Oct 2020 16:58:48 +0300
Subject: add predicates for checking maps and seqs; add COC, and update doc

---
 core_test.fnl | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'core_test.fnl')

diff --git a/core_test.fnl b/core_test.fnl
index fe2a71c..d0fbb1f 100644
--- a/core_test.fnl
+++ b/core_test.fnl
@@ -11,6 +11,8 @@
         : cons
         : first
         : rest
+        : map?
+        : seq?
         : eq?
         : identity
         : comp
@@ -66,6 +68,13 @@
   ;; different.
   (assert-eq {4 1} [nil nil nil 1]))
 
+(test seq-test
+  (assert-eq (seq []) nil)
+  (assert-eq (seq {}) nil)
+  (assert-eq (seq [1]) [1])
+  (assert-eq (seq [1 2 3]) [1 2 3])
+  (assert-eq (seq {:a 1}) [["a" 1]]))
+
 (test mapv-test
   (assert-eq (mapv #(* $ $) [1 2 3 4]) [1 4 9 16])
 
@@ -97,6 +106,7 @@
      (each [_ v (ipairs c)]
        (set res (+ res v)))
      res))
+
   (assert-eq (reduce ++ (range 10)) 45)
   (assert-eq (reduce ++ -3 (range 10)) 42)
   (assert-eq (reduce ++ 10 nil) 10)
@@ -116,4 +126,6 @@
 
 (test filter-test
   (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 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]]))
-- 
cgit v1.2.3