Made restart tests a bit more descriptive
Andy Grundman [Fri, 21 Oct 2005 15:03:33 +0000 (15:03 +0000)]
t/optional/http-server-restart.t

index a002ee3..93e9ea7 100644 (file)
@@ -67,7 +67,7 @@ for ( 1..20 ) {
         die "Server appears to have died" if $count++ > 50;\r
     }\r
     my $response = get("http://localhost:$port/action/default");\r
-    like( $response, qr/Catalyst::Request/, 'Request OK' );\r
+    like( $response, qr/Catalyst::Request/, 'Non-error restart, request OK' );\r
     \r
     #print $server->getline;\r
 }\r
@@ -86,7 +86,7 @@ for ( 1..20 ) {
         die "Server appears to have died";\r
     }\r
     my $response = get("http://localhost:$port/action/default");\r
-    like( $response, qr/Catalyst::Request/, 'Request OK' );\r
+    like( $response, qr/Catalyst::Request/, 'Syntax error, no restart, request OK' );\r
     \r
     #print $server->getline;\r
 }\r