[elephant-cvs] CVS elephant/tests

[ieslick]

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