[Catalyst-commits] r13750 - Catalyst-Runtime/5.80/trunk/t/author

rafl at dev.catalyst.perl.org rafl at dev.catalyst.perl.org
Fri Dec 3 17:46:40 GMT 2010


Author: rafl
Date: 2010-12-03 17:46:40 +0000 (Fri, 03 Dec 2010)
New Revision: 13750

Modified:
   Catalyst-Runtime/5.80/trunk/t/author/http-server.t
Log:
Use the harness instead of all of prove

Modified: Catalyst-Runtime/5.80/trunk/t/author/http-server.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/author/http-server.t	2010-12-03 16:08:21 UTC (rev 13749)
+++ Catalyst-Runtime/5.80/trunk/t/author/http-server.t	2010-12-03 17:46:40 UTC (rev 13750)
@@ -54,7 +54,7 @@
     $return = system( "$^X -I../lib/ $single_test" );
 }
 else {
-    $return = prove( '-r', '-I../lib/', glob('../t/aggregate/live_*.t') );
+    $return = prove( ['../lib/'], [glob('../t/aggregate/live_*.t')] );
 }
 
 # shut it down
@@ -84,11 +84,15 @@
 }
 
 sub prove {
+    my ($inc, $tests) = @_;
     if (!(my $pid = fork)) {
-        require App::Prove;
-        my $prove = App::Prove->new;
-        $prove->process_args(@_);
-        exit( $prove->run ? 0 : 1 );
+        unshift @INC, @{ $inc };
+
+        require TAP::Harness;
+        my $harness = TAP::Harness->new;
+        my $aggregator = $harness->runtests(@{ $tests });
+
+        exit $aggregator->has_errors ? 1 : 0;
     } else {
         waitpid $pid, 0;
         return $?;




More information about the Catalyst-commits mailing list