[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