X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Foptional%2Fhttp-server.t;h=44340e2bf95ee08ef449baf3ac8c5e20f209c55c;hb=dd3af04e6dadbbf97e83d8ad219556c6bfd774fc;hp=1dd4fea491859b5e4a6cbb4960b62c7dd129fafe;hpb=2624cbb41bb0916d922c22e3b43e790252287ce8;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/optional/http-server.t b/t/optional/http-server.t
index 1dd4fea..44340e2 100644
--- a/t/optional/http-server.t
+++ b/t/optional/http-server.t
@@ -11,6 +11,7 @@ eval "use File::Copy::Recursive";
 
 plan skip_all => 'set TEST_HTTP to enable this test' unless $ENV{TEST_HTTP};
 plan skip_all => 'File::Copy::Recursive required' if $@;
+plan tests => 28;
 
 # clean up
 rmtree "$FindBin::Bin/../../t/var" if -d "$FindBin::Bin/../../t/var";
@@ -36,7 +37,13 @@ while ( check_port( 'localhost', $port ) != 1 ) {
     
 # run the testsuite against the HTTP server
 $ENV{CATALYST_SERVER} = "http://localhost:$port";
-system( 'prove -r -Ilib/ t/live/' );
+my $output = `prove -r -Ilib/ t/live/`;
+
+foreach my $line ( split /\n/, $output ) {
+    if ( $line !~ /skipped|wallclock/ ) {
+        like( $line, qr/ok$/, 'test ok' );
+    }
+}
 
 # shut it down
 kill 2, $pid;