Update of /project/elephant/cvsroot/elephant/tests In directory clnet:/tmp/cvs-serv3271/tests
Modified Files: testbdb.lisp Log Message: Large changeset to enable thread safety; more *auto-commit* removal; sql class-root fix; new transaction model; cleaned up defaults for *store-controller*
--- /project/elephant/cvsroot/elephant/tests/testbdb.lisp 2006/11/11 22:53:13 1.2 +++ /project/elephant/cvsroot/elephant/tests/testbdb.lisp 2007/02/02 23:52:00 1.3 @@ -30,7 +30,7 @@ (deftest prepares-bdb (progn (setq db nil) - (if (and (find-package :db-bdb) + (if (and (find-package :db-bdb) (eq (first (elephant::controller-spec *store-controller*)) :BDB)) (finishes (prepare-bdb)) @@ -72,12 +72,12 @@ (db-bdb::db-sequence-initial-value seq (- most-positive-fixnum 99)) (db-bdb::db-sequence-open seq "testseq1" :auto-commit t :create t :thread t) - (loop for i = (db-bdb::db-sequence-get-fixnum seq 1 :auto-commit t :txn-nosync t) + (loop for i = (db-bdb::db-sequence-get-fixnum seq 1 :txn-nosync t) for j from (- most-positive-fixnum 99) to most-positive-fixnum while (> i 0) do (assert (= i j)) - finally (db-bdb::db-sequence-remove seq :auto-commit t)))) + finally (db-bdb::db-sequence-remove seq))))
(deftest test-seq1 (if (not db) @@ -93,14 +93,13 @@ (db-bdb::db-sequence-set-flags seq :seq-dec t :seq-wrap t) (db-bdb::db-sequence-set-range seq most-negative-fixnum 0) (db-bdb::db-sequence-initial-value seq (+ most-negative-fixnum 99)) - (db-bdb::db-sequence-open seq "testseq2" - :auto-commit t :create t :thread t) - (loop for i = (db-bdb::db-sequence-get-fixnum seq 1 :auto-commit t :txn-nosync t) + (db-bdb::db-sequence-open seq "testseq2" :create t :thread t) + (loop for i = (db-bdb::db-sequence-get-fixnum seq 1 :txn-nosync t) for j from (+ most-negative-fixnum 99) downto most-negative-fixnum while (< i 0) do (assert (= i j)) - finally (db-bdb::db-sequence-remove seq :auto-commit t)))) + finally (db-bdb::db-sequence-remove seq))))
(deftest test-seq2 (if (not db)