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)))