Changeset 3692

Show
Ignore:
Timestamp:
07/30/08 12:12:22 (4 months ago)
Author:
ksprotte
Message:

added two datastore core tests: :make-instance-in-anon-txn, :make-object-in-anon-txn

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/bknr/datastore/src/data/object-tests.lisp

    r3682 r3692  
    4848(defvar *tests* (make-hash-table)) 
    4949 
    50 (defmacro define-datastore-test (name &rest body) 
     50(defmacro define-datastore-test (name &body body) 
    5151  `(setf (gethash ,name *tests*) 
    5252         (make-instance 'datastore-test-class 
    …… 
    119119  (test-equal (all-store-objects) nil)) 
    120120 
     121(define-datastore-test :make-instance-in-anon-txn 
     122  (with-transaction () 
     123    (make-instance 'store-object))) 
     124 
     125(define-datastore-test :make-object-in-anon-txn 
     126  (with-transaction () 
     127    (make-object 'store-object))) 
     128 
    121129(define-persistent-class parent () 
    122130  ((child :update :initform nil)))