diff options
Diffstat (limited to 'tests/012/cons.tl')
-rw-r--r-- | tests/012/cons.tl | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/tests/012/cons.tl b/tests/012/cons.tl new file mode 100644 index 00000000..98267290 --- /dev/null +++ b/tests/012/cons.tl @@ -0,0 +1,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) |