blob: 98267290fd7e4ff3074739a049b73a8ca7a978cc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
(load "../common")
(mtest
(tree-find "abc" "abc") t
(tree-find "abc" "abc" (fun eq)) nil
(tree-find "b" '("a" "b" "c")) t
(tree-find "b" '("a" "b" "c") (fun eq)) nil
(tree-find "b" '(("b") "a" "c")) t
(tree-find "b" '("a" ("b") "c")) t
(tree-find "b" '("a" (("b")) "c")) t
(tree-find "d" '("a" (("b")) "c")) nil
(tree-find nil '("a" (("b")) "c")) nil)
(mtest
(cons-find "abc" "abc") t
(cons-find "abc" "ABC" (fun eq)) nil
(cons-find "b" '("a" "b" "c")) t
(cons-find "b" '("a" "b" "c") (fun eq)) nil
(cons-find "b" '(("b") "a" "c")) t
(cons-find "b" '("a" ("b") "c")) t
(cons-find "b" '("a" (("b")) "c")) t
(cons-find "d" '("a" (("b")) "c")) nil
(cons-find "d" '("a" (("b")) "c" . "d")) t
(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)
|