diff --git a/test/functional-map.lisp b/test/functional-map.lisp index b4b2c848adc2185e9c86a6101b6229bbc90bc424..fe385e13d678b0bc4a7814c0e81aa2cf0d0c613f 100644 --- a/test/functional-map.lisp +++ b/test/functional-map.lisp @@ -79,16 +79,14 @@ (is (equal b t))) (is (= (size i r) 99))) - ;; first-key-value - (equal '(nil nil nil) - (multiple-value-list (first-key-value i (empty i)))) - + ;; first-key-value <- bogus. assumes the keys decons'ed in the same order as alist + (is (equal '(nil nil nil) + (multiple-value-list (first-key-value i (empty i))))) (multiple-value-bind (k v b) (first-key-value i (from-alist i *al-2*)) (is (= k 2)) (is (equal v "2")) (is (equal b t))) - (multiple-value-bind (k v b) (first-key-value i (from-alist i *alist-100-latin*)) (is (= k 1)) @@ -96,7 +94,7 @@ (is (equal b t))) ;; decons - (equal '(() () () ()) (multiple-value-list (decons i (empty i)))) + (is (equal '(() () () ()) (multiple-value-list (decons i (empty i))))) (multiple-value-bind (m k v b) (decons i (from-alist i *alist-10-latin*)) (is (eq b t)) (is (equal (list v t) @@ -105,9 +103,14 @@ (multiple-value-list (lookup i m k))))) ;; fold-left + ;; fold-right + ;; for-each ;; join + (is (equal '() (join i (empty i) (empty i)))) + + ;; divide ;; size ;; join/list