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
 ;;;;
-;;;; 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
 ;;;;
 ;;;; *************************************************************************
@@ -88,8 +88,8 @@
   
 
 (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)
@@ -171,9 +171,7 @@
   
 
 (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)
@@ -221,8 +219,7 @@
   
 
 (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)))
@@ -278,8 +275,7 @@
        ))))
 
 (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)