X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flive%2Flib%2FTestApp%2FController%2FEngine%2FRequest%2FURI.pm;fp=t%2Flive%2Flib%2FTestApp%2FController%2FEngine%2FRequest%2FURI.pm;h=cb86f3046802dafe50c508be536f97860cf44207;hb=fbcc39ad23f2bbecf5d84c9ba581e6af86fcd460;hp=0000000000000000000000000000000000000000;hpb=21465c884872c1ec8c30acd72796445f9eaacb31;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/live/lib/TestApp/Controller/Engine/Request/URI.pm b/t/live/lib/TestApp/Controller/Engine/Request/URI.pm
new file mode 100644
index 0000000..cb86f30
--- /dev/null
+++ b/t/live/lib/TestApp/Controller/Engine/Request/URI.pm
@@ -0,0 +1,31 @@
+package TestApp::Controller::Engine::Request::URI;
+
+use strict;
+use base 'Catalyst::Base';
+
+sub default : Private {
+    my ( $self, $c ) = @_;
+    
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+sub change_path : Local {
+    my ( $self, $c ) = @_;
+    
+    # change the path
+    $c->req->path( '/my/app/lives/here' );
+    
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+sub change_base : Local {
+    my ( $self, $c ) = @_;
+    
+    # change the base and uri paths
+    $c->req->base->path( '/new/location' );
+    $c->req->uri->path( '/new/location/engine/request/uri/change_base' );
+    
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+1;