new test suit

[catagits/Catalyst-Runtime.git] / t / lib / TestApp / Controller / Action / Forward.pm

diff --git a/t/lib/TestApp/Controller/Action/Forward.pm b/t/lib/TestApp/Controller/Action/Forward.pm
new file mode 100644 (file)
index 0000000..ec3631a
--- /dev/null
+++ b/t/lib/TestApp/Controller/Action/Forward.pm
@@ -0,0 +1,37 @@
+package TestApp::Controller::Action::Forward;
+
+use strict;
+use base 'TestApp::Controller::Action';
+
+sub one : Relative {
+    my ( $self, $c ) = @_;
+    $c->forward('two');
+}
+
+sub two : Private {
+    my ( $self, $c ) = @_;
+    $c->forward('three');
+}
+
+sub three : Relative {
+    my ( $self, $c ) = @_;
+    $c->forward('four');
+}
+
+sub four : Private {
+    my ( $self, $c ) = @_;
+    $c->forward('five');
+}
+
+sub five : Relative {
+    my ( $self, $c ) = @_;
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+sub jojo : Relative {
+    my ( $self, $c ) = @_;
+    $c->forward('one');
+    $c->forward('three');
+}
+
+1;