Revision: 3692 Author: ksprotte URL: http://bknr.net/trac/changeset/3692 added two datastore core tests: :make-instance-in-anon-txn, :make-object-in-anon-txn U trunk/bknr/datastore/src/data/object-tests.lisp Modified: trunk/bknr/datastore/src/data/object-tests.lisp =================================================================== --- trunk/bknr/datastore/src/data/object-tests.lisp 2008-07-30 10:11:48 UTC (rev 3691) +++ trunk/bknr/datastore/src/data/object-tests.lisp 2008-07-30 10:12:22 UTC (rev 3692) @@ -47,7 +47,7 @@ (defvar *tests* (make-hash-table)) -(defmacro define-datastore-test (name &rest body) +(defmacro define-datastore-test (name &body body) `(setf (gethash ,name *tests*) (make-instance 'datastore-test-class :unit :datastore @@ -118,6 +118,14 @@ (map-store-objects #'delete-object))) (test-equal (all-store-objects) nil)) +(define-datastore-test :make-instance-in-anon-txn + (with-transaction () + (make-instance 'store-object))) + +(define-datastore-test :make-object-in-anon-txn + (with-transaction () + (make-object 'store-object))) + (define-persistent-class parent () ((child :update :initform nil)))