Update of /project/elephant/cvsroot/elephant/tests In directory common-lisp:/tmp/cvs-serv26639/tests

Modified Files: elephant-tests.lisp testindexing.lisp Log Message: Fixed a bug I introduced while exploring. Fixed some issues in testindexing that reduce failures. Please update if you're hacking on bug fixes.

--- /project/elephant/cvsroot/elephant/tests/elephant-tests.lisp 2006/02/22 21:03:48 1.18 +++ /project/elephant/cvsroot/elephant/tests/elephant-tests.lisp 2006/02/22 22:01:45 1.19 @@ -80,7 +80,7 @@ '(:clsql (:postgresql "localhost.localdomain" "test" "postgres" "")))

(defvar *testsqlite3-spec* - '(:clsql (:sqlite3 "tests/sqlite3-test.db")) + '(:clsql (:sqlite3 "sqlite3-test.db")) "This is of the form '(filename &optional init-function),")

(defvar *testsqlite3-memory-spec* --- /project/elephant/cvsroot/elephant/tests/testindexing.lisp 2006/02/22 21:03:48 1.10 +++ /project/elephant/cvsroot/elephant/tests/testindexing.lisp 2006/02/22 22:01:45 1.11 @@ -268,8 +268,8 @@ ((slot1 :accessor slot1 :initarg :slot1 :initform 11) (slot2 :accessor slot2 :initarg :slot2 :initform 12 :index t) (slot3 :accessor slot3 :initarg :slot3 :initform 13) - (slot7 :accessor slot7 :initarg :slot7) - (slot6 :accessor slot6 :initarg :slot6 :index t)) + (slot6 :accessor slot6 :initarg :slot6 :initform 14 :index t) + (slot7 :accessor slot7 :initarg :slot7)) (:metaclass persistent-metaclass))

(values @@ -283,11 +283,11 @@ (signals-error (get-instances-by-value 'idx-eight 'slot4 4))) (and (eq (slot6 o1) 14) (eq (length (get-instances-by-value 'idx-eight 'slot6 14)) 2)) - (and (slot-exists-p o1 'slot7) + (and ;;(slot-exists-p o1 'slot7) (not (slot-boundp o1 'slot7))) - (and (slot-exists-p o2 'slot7) + (and ;;(slot-exists-p o2 'slot7) (not (slot-boundp o2 'slot7)))))) - t t t t t t) + t t t t t t t)

;; create 500 objects, write each object's slots