[Catalyst-commits] r7810 - in Catalyst-Runtime/5.70/trunk/t: . lib/TestApp/Controller/Action

bricas at dev.catalyst.perl.org bricas at dev.catalyst.perl.org
Tue May 27 02:43:13 BST 2008


Author: bricas
Date: 2008-05-27 02:43:13 +0100 (Tue, 27 May 2008)
New Revision: 7810

Modified:
   Catalyst-Runtime/5.70/trunk/t/lib/TestApp/Controller/Action/ForwardTo.pm
   Catalyst-Runtime/5.70/trunk/t/live_component_controller_action_forward.t
Log:
fix up test to match release.

Modified: Catalyst-Runtime/5.70/trunk/t/lib/TestApp/Controller/Action/ForwardTo.pm
===================================================================
--- Catalyst-Runtime/5.70/trunk/t/lib/TestApp/Controller/Action/ForwardTo.pm	2008-05-27 00:40:53 UTC (rev 7809)
+++ Catalyst-Runtime/5.70/trunk/t/lib/TestApp/Controller/Action/ForwardTo.pm	2008-05-27 01:43:13 UTC (rev 7810)
@@ -5,7 +5,7 @@
 
 sub uri_check : Private {
     my ( $self, $c ) = @_;
-    $c->res->body( $c->uri_for('foo/bar') );
+    $c->res->body( $c->uri_for('foo/bar')->path );
 }
 
 1;

Modified: Catalyst-Runtime/5.70/trunk/t/live_component_controller_action_forward.t
===================================================================
--- Catalyst-Runtime/5.70/trunk/t/live_component_controller_action_forward.t	2008-05-27 00:40:53 UTC (rev 7809)
+++ Catalyst-Runtime/5.70/trunk/t/live_component_controller_action_forward.t	2008-05-27 01:43:13 UTC (rev 7810)
@@ -242,9 +242,7 @@
             'forward_to_uri_check request');
 
         ok( $response->is_success, 'forward_to_uri_check successful');
-        # optional port, as it could be a live test
-        like( $response->content, qr{http://localhost(:\d+)?/action/forward/foo/bar},
+        is( $response->content, '/action/forward/foo/bar',
              'forward_to_uri_check correct namespace');
     }
-
 }




More information about the Catalyst-commits mailing list