added auto to inheritance.t
Christian Hansen [Sun, 10 Apr 2005 22:54:53 +0000 (22:54 +0000)]
t/controller/action/inheritance.t
t/lib/TestApp/Controller/Action/Inheritance.pm

index e3f009e..3bc6ebb 100644 (file)
@@ -13,6 +13,7 @@ use Catalyst::Test 'TestApp';
 {
     my @expected = qw[
         TestApp::Controller::Action::Inheritance->begin
+        TestApp::Controller::Action::Inheritance->auto
         TestApp::Controller::Action::Inheritance->default
         TestApp::View::Dump::Request->process
         TestApp::Controller::Action::Inheritance->end
@@ -32,6 +33,8 @@ use Catalyst::Test 'TestApp';
 {
     my @expected = qw[
         TestApp::Controller::Action::Inheritance::A->begin
+        TestApp::Controller::Action::Inheritance->auto 
+        TestApp::Controller::Action::Inheritance::A->auto       
         TestApp::Controller::Action::Inheritance::A->default
         TestApp::View::Dump::Request->process
         TestApp::Controller::Action::Inheritance::A->end
@@ -51,6 +54,9 @@ use Catalyst::Test 'TestApp';
 {
     my @expected = qw[
         TestApp::Controller::Action::Inheritance::A::B->begin
+        TestApp::Controller::Action::Inheritance->auto 
+        TestApp::Controller::Action::Inheritance::A->auto
+        TestApp::Controller::Action::Inheritance::A::B->auto
         TestApp::Controller::Action::Inheritance::A::B->default
         TestApp::View::Dump::Request->process
         TestApp::Controller::Action::Inheritance::A::B->end
index 7a27561..6eae935 100644 (file)
@@ -3,6 +3,11 @@ package TestApp::Controller::Action::Inheritance;
 use strict;
 use base 'TestApp::Controller::Action';
 
+sub auto : Private {
+    my ( $self, $c ) = @_;
+    return 1;
+}
+
 sub begin : Private {
     my ( $self, $c ) = @_;
     $self->SUPER::begin($c);
@@ -22,6 +27,11 @@ package TestApp::Controller::Action::Inheritance::A;
 use strict;
 use base 'TestApp::Controller::Action';
 
+sub auto : Private {
+    my ( $self, $c ) = @_;
+    return 1;
+}
+
 sub begin : Private {
     my ( $self, $c ) = @_;
     $self->SUPER::begin($c);
@@ -41,6 +51,11 @@ package TestApp::Controller::Action::Inheritance::A::B;
 use strict;
 use base 'TestApp::Controller::Action';
 
+sub auto : Private {
+    my ( $self, $c ) = @_;
+    return 1;
+}
+
 sub begin : Private {
     my ( $self, $c ) = @_;
     $self->SUPER::begin($c);