From c08e457cdf3a28d34abc5250bfafcdebd2f73d52 Mon Sep 17 00:00:00 2001
From: "Rommel M. Martinez" <ebzzry@gmail.com>
Date: Tue, 23 Feb 2010 15:00:17 +0800
Subject: [PATCH] Test fixes

---
 test/functional-map.lisp | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/test/functional-map.lisp b/test/functional-map.lisp
index b4b2c84..fe385e1 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
-- 
GitLab