[elephant-cvs] CVS elephant/tests

[ieslick]

Update of /project/elephant/cvsroot/elephant/tests
In directory clnet:/tmp/cvs-serv21893/tests

Modified Files:
	testcollections.lisp 
Log Message:
Trial pset abstraction; fix for debug serialize of complex and more documentation edits

--- /project/elephant/cvsroot/elephant/tests/testcollections.lisp	2007/02/21 04:47:47	1.19
+++ /project/elephant/cvsroot/elephant/tests/testcollections.lisp	2007/04/06 02:51:50	1.20
@@ -695,6 +695,23 @@
   nil t nil
   )
 
+(defparameter test-items '(1 2 3 (1) (2) test1 test2))
+
+(deftest pset
+    (let ((pset1 (make-pset)))
+      (mapc (lambda (item)
+	      (insert-item item pset1))
+	    test-items)
+      (remove-item (list 2) pset1)
+      (remove-item 'test2 pset1)
+      (let ((list (pset-list pset1)))
+	(values
+	 (= (length (pset-list pset1)) 5)
+	 (not (find-item 'test2 pset1))
+	 (is-not-null (find-item 'test1 pset1))
+	 (is-not-null (find-item 1 pset1 :key (lambda (x) (when (consp x) (car x))) :test #'eq)))))
+  t t t t)
+	  
 
 ;; This test not only does not work, it appears to 
 ;; hang BDB forcing a recovery!?!?!?!