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

Modified Files: testindexing.lisp Log Message: Fixes for Win32 allegro build; lispwork builds but fails to run; new test of :index class keyword which fails

--- /project/elephant/cvsroot/elephant/tests/testindexing.lisp 2007/02/26 19:55:13 1.31 +++ /project/elephant/cvsroot/elephant/tests/testindexing.lisp 2007/03/03 17:25:01 1.32 @@ -102,6 +102,20 @@ )) 3 2 1 t 3)

+(deftest indexing-class-opt + (progn + (when (class-indexedp-by-name 'idx-cslot) + (disable-class-indexing 'idx-cslot :errorp nil) + (setf (find-class 'idx-cslot) nil)) + + (defclass idx-cslot () + ((slot1 :initarg :slot1 :initform 0 :accessor slot1)) + (:metaclass persistent-metaclass :index t)) + + (values (class-indexedp-by-name 'idx-cslot))) + t) + + ;; test inherited slots (deftest indexing-inherit (progn