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

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2010-12-04 21:19:46 +0000 (Sat, 04 Dec 2010)
New Revision: 13757

Modified:
   Catalyst-Runtime/5.80/trunk/t/author/http-server.t
Log:
Stop passing along @INC

It's pointless - it's always the same anyway.

Modified: Catalyst-Runtime/5.80/trunk/t/author/http-server.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/author/http-server.t	2010-12-04 21:19:41 UTC (rev 13756)
+++ Catalyst-Runtime/5.80/trunk/t/author/http-server.t	2010-12-04 21:19:46 UTC (rev 13757)
@@ -56,7 +56,7 @@
     $return = system( "$^X -Ilib/ $single_test" );
 }
 else {
-    $return = prove( ['lib/'], [grep { $_ ne '..' } glob('t/aggregate/live_*.t')] );
+    $return = prove(grep { $_ ne '..' } glob('t/aggregate/live_*.t'));
 }
 
 # shut it down
@@ -86,19 +86,19 @@
 }
 
 sub prove {
-    my ($inc, $tests) = @_;
+    my (@tests) = @_;
     if (!(my $pid = fork)) {
         require TAP::Harness;
 
         my $aggr = -e '.aggregating';
         my $harness = TAP::Harness->new({
-            ($aggr ? (test_args => $tests) : ()),
-            lib => $inc,
+            ($aggr ? (test_args => \@tests) : ()),
+            lib => ['lib'],
         });
 
         my $aggregator = $aggr
             ? $harness->runtests('t/aggregate.t')
-            : $harness->runtests(@{ $tests });
+            : $harness->runtests(@tests);
 
         exit $aggregator->has_errors ? 1 : 0;
     } else {