projects
/
wol.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5489: *** empty log message ***
[wol.git]
/
tests.lisp
diff --git
a/tests.lisp
b/tests.lisp
index 6fceef89e377decc1cae2ffa4e7ef80e279819be..c2f91ea2bd9954352dc3b172be3a5f21d5d4bdeb 100644
(file)
--- a/
tests.lisp
+++ b/
tests.lisp
@@
-2,7
+2,7
@@
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; Id: $Id: tests.lisp,v 1.
2 2003/08/10 05:16:52
kevin Exp $
+;;;; Id: $Id: tests.lisp,v 1.
3 2003/08/10 17:56:44
kevin Exp $
;;;; Purpose: Self Test suite for WOL
;;;;
;;;; *************************************************************************
;;;; Purpose: Self Test suite for WOL
;;;;
;;;; *************************************************************************
@@
-88,8
+88,8
@@
(defmethod tear-down ((self test-server))
(defmethod tear-down ((self test-server))
- (net.aserve:shutdown :server (wserver self))
- (stop-wol-project (name self)))
+ (net.aserve:shutdown :server (wserver self))
)
+
(def-test-method test-server-index ((self test-server) :run nil)
(multiple-value-bind (body response-code headers uri)
(def-test-method test-server-index ((self test-server) :run nil)
(multiple-value-bind (body response-code headers uri)
@@
-171,9
+171,7
@@
(defmethod tear-down ((self test-two-projects))
(defmethod tear-down ((self test-two-projects))
- (net.aserve:shutdown :server (wserver self))
- (stop-wol-project (name1 self))
- (stop-wol-project (name2 self)))
+ (net.aserve:shutdown :server (wserver self)))
(def-test-method test-two-project-index ((self test-two-projects) :run nil)
(multiple-value-bind (body response-code headers uri)
(def-test-method test-two-project-index ((self test-two-projects) :run nil)
(multiple-value-bind (body response-code headers uri)
@@
-221,8
+219,7
@@
(defmethod tear-down ((self test-sessions))
(defmethod tear-down ((self test-sessions))
- (net.aserve:shutdown :server (wserver self))
- (stop-wol-project (name self)))
+ (net.aserve:shutdown :server (wserver self)))
(defun test-sessions-index (req ent)
(let ((session (websession-from-req req)))
(defun test-sessions-index (req ent)
(let ((session (websession-from-req req)))
@@
-278,8
+275,7
@@
))))
(defmethod tear-down ((self test-no-sessions))
))))
(defmethod tear-down ((self test-no-sessions))
- (net.aserve:shutdown :server (wserver self))
- (stop-wol-project (name self)))
+ (net.aserve:shutdown :server (wserver self)))
(def-test-method test-no-sessions ((self test-no-sessions) :run nil)
(multiple-value-bind (body response-code headers uri)
(def-test-method test-no-sessions ((self test-no-sessions) :run nil)
(multiple-value-bind (body response-code headers uri)