X-Git-Url: http://git.kpe.io/?p=wol.git;a=blobdiff_plain;f=tests.lisp;fp=tests.lisp;h=c2f91ea2bd9954352dc3b172be3a5f21d5d4bdeb;hp=6fceef89e377decc1cae2ffa4e7ef80e279819be;hb=ca586910648f4844e335d92f23e619fd2b84f969;hpb=fe6fd1cd39dd145adb1c479cab619a2ce6d1c3eb

diff --git a/tests.lisp b/tests.lisp
index 6fceef8..c2f91ea 100644
--- 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)