Changeset 3276

Show
Ignore:
Timestamp:
06/17/08 06:44:31 (7 months ago)
Author:
ksprotte
Message:

bos/test: WITH-BOS-TEST-SERVER now also opens a test-store

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/test/bos.test.asd

    r3268 r3276  
    1212               ;; (:file "utils" :depends-on ("config")) 
    1313               (:module :web 
    14                         :depends-on ("test-suites") 
     14                        :depends-on ("test-suites" "test-fixtures") 
    1515                        :components 
    1616                        ((:file "startup") 

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

    r3019 r3276  
    4949                         :directory #p"/tmp/test-store.tmp/" 
    5050                         :website-url bos.m2::*website-url*) 
     51         (make-user "anonymous")        ; needed for web tests 
    5152         (&body)) 
    5253    (close-store))) 

  • trunk/projects/bos/test/web/startup.lisp

    r3273 r3276  
    44(defmacro with-bos-test-server ((port-var) &body body) 
    55  (check-type port-var symbol) 
    6   `(let* ((,port-var (+ 70000 (random 5253))) 
    7           (server (bos.web::init :port ,port-var 
    8                                  :worldpay-test-mode t))) 
    9      (unwind-protect 
    10           (progn ,@body) 
    11        (hunchentoot:stop-server server)))) 
     6  `(with-fixture empty-store () 
     7     (let* ((,port-var (+ 70000 (random 5253))) 
     8            (server (bos.web::init :port ,port-var 
     9                                   :worldpay-test-mode t))) 
     10       (unwind-protect 
     11            (progn ,@body) 
     12         (hunchentoot:stop-server server))))) 
    1213 
    1314(test web-init