[bknr-cvs] ksprotte changed trunk/bknr/datastore/src/data/object-tests.lisp

[BKNR Commits]

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