Changeset 3279

Show
Ignore:
Timestamp:
06/17/08 07:00:25 (7 months ago)
Author:
ksprotte
Message:

bos/test: renamed fixture empty-store -> initial-bos-store

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/test/allocation.lisp

    r3277 r3279  
    6969 
    7070(test allocation-area.two-areas 
    71   (with-fixture empty-store ()     
     71  (with-fixture initial-bos-store ()     
    7272    (let ((snapshot nil) (bypass t)) 
    7373      (declare (ignorable snapshot bypass)) 
    …… 
    9292 
    9393(test allocation-area.auto-activation.2 
    94   (with-fixture empty-store () 
     94  (with-fixture initial-bos-store () 
    9595    (let* ((area1 (make-allocation-rectangle 0 0 8 8)) 
    9696           (area2 (make-allocation-rectangle 10 10 8 8)) 
    …… 
    109109(test allocation-area.auto-activation.3 
    110110  (dolist (m2-count '(1000 100)) 
    111     (with-fixture empty-store () 
     111    (with-fixture initial-bos-store () 
    112112      (let* ((area1 (make-allocation-rectangle 0 0 8 8)) 
    113113             (area2 (make-allocation-rectangle 10 10 8 8)) 
    …… 
    136136                                                 :elements (gen-integer :min 1 :max 20))) 
    137137              (n (gen-integer :min 1 :max 100))) 
    138       (with-fixture empty-store () 
     138      (with-fixture initial-bos-store () 
    139139        (let* ((areas (make-allocation-areas allocation-area-widths)) 
    140140               (sponsor (make-sponsor :login "test-sponsor"))) 
    …… 
    156156  (flet ((m2p (obj) 
    157157           (typep obj 'm2))) 
    158     (with-fixture empty-store () 
     158    (with-fixture initial-bos-store () 
    159159      (let* ((area1 (make-allocation-rectangle 0 0 8 8)) 
    160160             (area2 (make-allocation-rectangle 10 10 9 9))) 
    …… 
    172172           (typep obj 'm2))) 
    173173    (for-all ((n (gen-integer :min 1 :max 290))) 
    174       (with-fixture empty-store () 
     174      (with-fixture initial-bos-store () 
    175175        (let* ((area1 (make-allocation-rectangle 0 0 8 8)) 
    176176               (area2 (make-allocation-rectangle 10 10 9 9)) 
    …… 
    186186 
    187187(test allocation-area.delete 
    188   (with-fixture empty-store () 
     188  (with-fixture initial-bos-store () 
    189189    (let ((area (make-allocation-rectangle 0 0 10 10)) 
    190190          (sponsor (make-sponsor :login "testuser")) 

  • trunk/projects/bos/test/fixtures.lisp

    r3277 r3279  
    4343     ,@body)) 
    4444 
    45 (def-fixture empty-store ()   
     45(def-fixture initial-bos-store ()   
    4646  (unwind-protect 
    4747       (progn 
    …… 
    6363                             name)) 
    6464        (collect `(test ,test-name 
    65                     (with-fixture empty-store () 
     65                    (with-fixture initial-bos-store () 
    6666                      (let ((snapshot ,(getf config :snapshot)) 
    6767                            (bypass ,(getf config :bypass))) 

  • trunk/projects/bos/test/web/drakma-requests.lisp

    r3277 r3279  
    44(defmacro with-bos-test-server ((port-var) &body body) 
    55  (check-type port-var symbol) 
    6   `(with-fixture empty-store () 
     6  `(with-fixture initial-bos-store () 
    77     (let* ((,port-var (+ 70000 (random 5253))) 
    88            (server (bos.web::init :port ,port-var