[elephant-cvs] CVS elephant/tests

[ieslick]

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

Modified Files:
	delscript.sh testindexing.lisp testserializer.lisp 
Log Message:
0.6.1 Working HEAD is limping again.  All tests pass on Allegro 8.0/Mac OS X

--- /project/elephant/cvsroot/elephant/tests/delscript.sh	2006/11/11 18:41:11	1.2
+++ /project/elephant/cvsroot/elephant/tests/delscript.sh	2007/01/22 16:17:44	1.3
@@ -1,9 +1,12 @@
 rm testdb/__*
 rm testdb/%*
 rm testdb/log*
+rm testdb/VERSION
 rm testdb2/__*
 rm testdb2/%*
 rm testdb2/log*
+rm testdb2/VERSION
 rm testbdb/testsbdb
 rm testbdb/__*
-rm testbdb/log*
\ No newline at end of file
+rm testbdb/log*
+rm testbdb/VERSION
\ No newline at end of file
--- /project/elephant/cvsroot/elephant/tests/testindexing.lisp	2006/09/04 05:42:43	1.19
+++ /project/elephant/cvsroot/elephant/tests/testindexing.lisp	2007/01/22 16:17:44	1.20
@@ -417,8 +417,8 @@
 	 (end (1- (+ start size))))
     (get-instances-by-range class 'stress1 start end)))
 
-(defparameter *stress-count* 500)
-(defparameter *range-size* 40)
+(defparameter *stress-count* 700)
+(defparameter *range-size* 80)
 
 (deftest indexing-timing
     (progn
--- /project/elephant/cvsroot/elephant/tests/testserializer.lisp	2007/01/21 21:20:05	1.11
+++ /project/elephant/cvsroot/elephant/tests/testserializer.lisp	2007/01/22 16:17:44	1.12
@@ -348,15 +348,14 @@
       (setf (slot-value b 'slot1) h)
       (setf (slot-value b 'slot2) f)
       (are-not-null
-;;       (in-out-deep-equalp c1)
-;;       (in-out-deep-equalp c2)
-;;       (in-out-deep-equalp l1)
-;;       (in-out-deep-equalp h)
-;;       (in-out-deep-equalp g)
-;;       (in-out-deep-equalp f)
+       (in-out-deep-equalp c1)
+       (in-out-deep-equalp c2)
+       (in-out-deep-equalp l1)
+       (in-out-deep-equalp h)
+       (in-out-deep-equalp g)
+       (in-out-deep-equalp f)
        (in-out-deep-equalp b)))
-  t)
- ;;t t t t t t t)
+  t t t t t t t)
 
 (defclass pfoo ()
   ((slot1 :initarg :slot1 :accessor slot1))