[Catalyst-commits] r9428 - in Catalyst-Runtime/5.80/trunk/t: aggregate lib/TestApp lib/TestApp/Controller/Action

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-03-04 16:53:02 +0000 (Wed, 04 Mar 2009)
New Revision: 9428

Removed:
   Catalyst-Runtime/5.80/trunk/t/lib/TestApp/ControllerBase/
Modified:
   Catalyst-Runtime/5.80/trunk/t/aggregate/live_component_controller_action_inheritance.t
   Catalyst-Runtime/5.80/trunk/t/lib/TestApp/Controller/Action/Inheritance.pm
Log:
FAILCAKE, I only meant to TODO

Modified: Catalyst-Runtime/5.80/trunk/t/aggregate/live_component_controller_action_inheritance.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/aggregate/live_component_controller_action_inheritance.t	2009-03-04 16:51:23 UTC (rev 9427)
+++ Catalyst-Runtime/5.80/trunk/t/aggregate/live_component_controller_action_inheritance.t	2009-03-04 16:53:02 UTC (rev 9428)
@@ -10,7 +10,7 @@
 
 BEGIN { $iters = $ENV{CAT_BENCH_ITERS} || 1; }
 
-use Test::More tests => 26*$iters;
+use Test::More tests => 21*$iters;
 use Catalyst::Test 'TestApp';
 
 if ( $ENV{CAT_BENCHMARK} ) {
@@ -116,26 +116,4 @@
             'Content is a serialized Catalyst::Request'
         );
     }
-
-    {
-        my @expected = qw[
-          TestApp::Controller::Action::Inheritance->begin
-          TestApp::Controller::Action::Inheritance->auto
-          TestApp::Controller::Action::Inheritance::Chained->chain_root
-          TestApp::Controller::Action::Inheritance::Chained->chain_first
-          TestApp::Controller::Action::Inheritance::Chained->chain_middle
-          TestApp::Controller::Action::Inheritance::Chained->chain_end
-          TestApp::Controller::Action::Inheritance->end
-        ];
-
-        my $expected = join( ", ", @expected );
-
-        ok( my $response = request('http://localhost/action/inheritance/chained/chain_end'),
-            'Request' );
-        ok( $response->is_success, 'Response Successful 2xx' );
-        is( $response->content_type, 'text/plain', 'Response Content-Type' );
-        is( $response->header('X-Catalyst-Action'), '/action/inheritance/chained/chain_end', 'Test Action' );
-        is( $response->header('X-Catalyst-Executed'),
-            $expected, 'Executed actions' );
-    }
 }

Modified: Catalyst-Runtime/5.80/trunk/t/lib/TestApp/Controller/Action/Inheritance.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/lib/TestApp/Controller/Action/Inheritance.pm	2009-03-04 16:51:23 UTC (rev 9427)
+++ Catalyst-Runtime/5.80/trunk/t/lib/TestApp/Controller/Action/Inheritance.pm	2009-03-04 16:53:02 UTC (rev 9428)
@@ -70,13 +70,5 @@
     my ( $self, $c ) = @_;
 }
 
-package TestApp::Controller::Action::Inheritance::Chained;
-
-use strict;
-use base qw/TestApp::ControllerBase::Middle TestApp::ControllerBase::RealMiddle/;
-
-sub chain_first : CaptureArgs(0) PathPart('') Chained('chain_root') {}
-
-
 1;