[elephant-cvs] CVS elephant/tests

[ieslick]

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)