(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)