[Catalyst-commits] r12617 - Catalyst-Runtime/5.80/trunk/t/aggregate

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2010-01-12 21:37:31 +0000 (Tue, 12 Jan 2010)
New Revision: 12617

Modified:
   Catalyst-Runtime/5.80/trunk/t/aggregate/unit_load_catalyst_test.t
Log:
Fix a deprecation warning in the tests.

Modified: Catalyst-Runtime/5.80/trunk/t/aggregate/unit_load_catalyst_test.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/aggregate/unit_load_catalyst_test.t	2010-01-12 02:02:15 UTC (rev 12616)
+++ Catalyst-Runtime/5.80/trunk/t/aggregate/unit_load_catalyst_test.t	2010-01-12 21:37:31 UTC (rev 12617)
@@ -3,9 +3,7 @@
 use strict;
 use warnings;
 
-use FindBin;
-use lib         "$FindBin::Bin/../lib";
-use Test::More  tests => 61;
+use Test::More;
 use FindBin qw/$Bin/;
 use lib "$Bin/../lib";
 use Catalyst::Utils;
@@ -26,7 +24,7 @@
 ### make sure we're not trying to connect to a remote host -- these are local tests
 local $ENV{CATALYST_SERVER};
 
-use_ok( $Class );
+use Catalyst::Test ();
 
 ### check available methods
 {   ### turn of redefine warnings, we'll get new subs exported
@@ -155,3 +153,4 @@
     request(GET('/dummy'), []);
 } 'array additional param to request method ignored';
 
+done_testing;