summaryrefslogtreecommitdiffstats
path: root/tests/012/cons.tl
diff options
context:
space:
mode:
Diffstat (limited to 'tests/012/cons.tl')
-rw-r--r--tests/012/cons.tl9
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/012/cons.tl b/tests/012/cons.tl
index d72a5d74..98267290 100644
--- a/tests/012/cons.tl
+++ b/tests/012/cons.tl
@@ -24,3 +24,12 @@
(cons-find "d" '("a" (("b") . "d") "c")) t
(cons-find "d" '("a" . "d")) t
(cons-find nil '("a" (("b")) "c")) t)
+
+(mtest
+ (cons-count "abc" "abc") 1
+ (cons-count "abc" "abc" (fun eq)) 0
+ (cons-count "b" '("b" . "b")) 2
+ (cons-count "b" '(3 . "b")) 1
+ (cons-count "b" '("b" . 3)) 1
+ (cons-count "b" '(("b" . "b") ("b" . "b"))) 4
+ (cons-count nil '(1 (2 3 (4)))) 3)