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!?!?!?!