[Catalyst-commits] r10972 - Catalyst-Runtime/5.80/branches/contextual_uri_for/t

[pjfl at dev.catalyst.perl.org]

Author: pjfl
Date: 2009-07-24 16:12:19 +0000 (Fri, 24 Jul 2009)
New Revision: 10972

Modified:
   Catalyst-Runtime/5.80/branches/contextual_uri_for/t/unit_core_contextual_uri_for.t
Log:
- Stopped mangling config in contextual uri_for tests

Modified: Catalyst-Runtime/5.80/branches/contextual_uri_for/t/unit_core_contextual_uri_for.t
===================================================================
--- Catalyst-Runtime/5.80/branches/contextual_uri_for/t/unit_core_contextual_uri_for.t	2009-07-24 13:37:04 UTC (rev 10971)
+++ Catalyst-Runtime/5.80/branches/contextual_uri_for/t/unit_core_contextual_uri_for.t	2009-07-24 16:12:19 UTC (rev 10972)
@@ -5,19 +5,27 @@
 use lib catdir( $Bin, updir, q(lib) ), catdir( $Bin, q(lib) );
 
 use English qw( -no_match_vars );
-use Test::More tests => 11;
+use Test::More tests => 10;
 use URI;
 
-use_ok( q(TestApp) );
+{   package TestApp;
 
+    use Catalyst;
+
+    __PACKAGE__->config
+       ( contextual_uri_for        => 1,
+         dispatcher_default_action => q(default_endpoint), );
+
+    __PACKAGE__->setup;
+
+    1;
+}
+
 my $request = Catalyst::Request->new( {
     base => URI->new( q(http://127.0.0.1) ) } );
 
 my $context = TestApp->new( { request => $request } );
 
-$context->config( contextual_uri_for        => 1,
-                  dispatcher_default_action => q(default_endpoint), );
-
 is( $context->uri_for,
     q(http://127.0.0.1/),
     'URI for default private path with no args at all' );