[catagits/Catalyst-Runtime.git] / t / live / component / controller / action / forward.t

#!perl

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../../../lib";

our $iters;

BEGIN { $iters = $ENV{CAT_BENCH_ITERS} || 2; }

use Test::More tests => 44 * $iters;
use Catalyst::Test 'TestApp';

if ( $ENV{CAT_BENCHMARK} ) {
    require Benchmark;
    Benchmark::timethis( $iters, \&run_tests );
}
else {
    for ( 1 .. $iters ) {
        run_tests();
    }
}

sub run_tests {
    {
        my @expected = qw[
          TestApp::Controller::Action::Forward->begin
          TestApp::Controller::Action::Forward->one
          TestApp::Controller::Action::Forward->two
          TestApp::Controller::Action::Forward->three
          TestApp::Controller::Action::Forward->four
          TestApp::Controller::Action::Forward->five
          TestApp::View::Dump::Request->process
          TestApp->end
        ];

        my $expected = join( ", ", @expected );

        # Test forward to global private action
        ok( my $response = request('http://localhost/action/forward/global'),
            'Request' );
        ok( $response->is_success, 'Response Successful 2xx' );
        is( $response->content_type, 'text/plain', 'Response Content-Type' );
        is( $response->header('X-Catalyst-Action'),
            'action/forward/global', 'Main Class Action' );

        # Test forward to chain of actions.
        ok( $response = request('http://localhost/action/forward/one'),
            'Request' );
        ok( $response->is_success, 'Response Successful 2xx' );
        is( $response->content_type, 'text/plain', 'Response Content-Type' );
        is( $response->header('X-Catalyst-Action'),
            'action/forward/one', 'Test Action' );
        is(
            $response->header('X-Test-Class'),
            'TestApp::Controller::Action::Forward',
            'Test Class'
        );
        is( $response->header('X-Catalyst-Executed'),
            $expected, 'Executed actions' );
        like(
            $response->content,
            qr/^bless\( .* 'Catalyst::Request' \)$/s,
            'Content is a serialized Catalyst::Request'
        );
    }

    {
        my @expected = qw[
          TestApp::Controller::Action::Forward->begin
          TestApp::Controller::Action::Forward->jojo
          TestApp::Controller::Action::Forward->one
          TestApp::Controller::Action::Forward->two
          TestApp::Controller::Action::Forward->three
          TestApp::Controller::Action::Forward->four
          TestApp::Controller::Action::Forward->five
          TestApp::View::Dump::Request->process
          TestApp::Controller::Action::Forward->three
          TestApp::Controller::Action::Forward->four
          TestApp::Controller::Action::Forward->five
          TestApp::View::Dump::Request->process
          TestApp->end
        ];

        my $expected = join( ", ", @expected );

        ok( my $response = request('http://localhost/action/forward/jojo'),
            'Request' );
        ok( $response->is_success, 'Response Successful 2xx' );
        is( $response->content_type, 'text/plain', 'Response Content-Type' );
        is( $response->header('X-Catalyst-Action'),
            'action/forward/jojo', 'Test Action' );
        is(
            $response->header('X-Test-Class'),
            'TestApp::Controller::Action::Forward',
            'Test Class'
        );
        is( $response->header('X-Catalyst-Executed'),
            $expected, 'Executed actions' );
        like(
            $response->content,
            qr/^bless\( .* 'Catalyst::Request' \)$/s,
            'Content is a serialized Catalyst::Request'
        );
    }

    {
        ok(
            my $response =
              request('http://localhost/action/forward/with_args/old'),
            'Request with args'
        );
        ok( $response->is_success, 'Response Successful 2xx' );
        is( $response->content, 'old' );
    }

    {
        ok(
            my $response = request(
                'http://localhost/action/forward/with_method_and_args/old'),
            'Request with args and method'
        );
        ok( $response->is_success, 'Response Successful 2xx' );
        is( $response->content, 'old' );
    }

    # test forward with embedded args
    {
        ok(
            my $response =
              request('http://localhost/action/forward/args_embed_relative'),
            'Request'
        );
        ok( $response->is_success, 'Response Successful 2xx' );
        is( $response->content, 'ok' );
    }

    {
        ok(
            my $response =
              request('http://localhost/action/forward/args_embed_absolute'),
            'Request'
        );
        ok( $response->is_success, 'Response Successful 2xx' );
        is( $response->content, 'ok' );
    }
    {
        my @expected = qw[
          TestApp::Controller::Action::Relative->begin
          TestApp::Controller::Action::Relative->relative
          TestApp::Controller::Action::Forward->one
          TestApp::Controller::Action::Forward->two
          TestApp::Controller::Action::Forward->three
          TestApp::Controller::Action::Forward->four
          TestApp::Controller::Action::Forward->five
          TestApp::View::Dump::Request->process
          TestApp->end
        ];

        my $expected = join( ", ", @expected );

        # Test forward to chain of actions.
        ok( my $response = request('http://localhost/action/relative/relative'),
            'Request' );
        ok( $response->is_success, 'Response Successful 2xx' );
        is( $response->content_type, 'text/plain', 'Response Content-Type' );
        is( $response->header('X-Catalyst-Action'),
            'action/relative/relative', 'Test Action' );
        is(
            $response->header('X-Test-Class'),
            'TestApp::Controller::Action::Relative',
            'Test Class'
        );
        is( $response->header('X-Catalyst-Executed'),
            $expected, 'Executed actions' );
        like(
            $response->content,
            qr/^bless\( .* 'Catalyst::Request' \)$/s,
            'Content is a serialized Catalyst::Request'
        );
    }
    {
        my @expected = qw[
          TestApp::Controller::Action::Relative->begin
          TestApp::Controller::Action::Relative->relative_two
          TestApp::Controller::Action::Forward->one
          TestApp::Controller::Action::Forward->two
          TestApp::Controller::Action::Forward->three
          TestApp::Controller::Action::Forward->four
          TestApp::Controller::Action::Forward->five
          TestApp::View::Dump::Request->process
          TestApp->end
        ];

        my $expected = join( ", ", @expected );

        # Test forward to chain of actions.
        ok(
            my $response =
              request('http://localhost/action/relative/relative_two'),
            'Request'
        );
        ok( $response->is_success, 'Response Successful 2xx' );
        is( $response->content_type, 'text/plain', 'Response Content-Type' );
        is(
            $response->header('X-Catalyst-Action'),
            'action/relative/relative_two',
            'Test Action'
        );
        is(
            $response->header('X-Test-Class'),
            'TestApp::Controller::Action::Relative',
            'Test Class'
        );
        is( $response->header('X-Catalyst-Executed'),
            $expected, 'Executed actions' );
        like(
            $response->content,
            qr/^bless\( .* 'Catalyst::Request' \)$/s,
            'Content is a serialized Catalyst::Request'
        );
    }
}
Commit	Line	Data
dd4e6fd2	1	#!perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use FindBin;
9770ad56	7	use lib "$FindBin::Bin/../../../lib";
dd4e6fd2	8
232fd394	9	our $iters;
	10
	11	BEGIN { $iters = $ENV{CAT_BENCH_ITERS} \|\| 2; }
	12
46245bee	13	use Test::More tests => 44 * $iters;
dd4e6fd2	14	use Catalyst::Test 'TestApp';
dd4e6fd2	15
232fd394	16	if ( $ENV{CAT_BENCHMARK} ) {
232fd394	17	require Benchmark;
5a6c7ff6	18	Benchmark::timethis( $iters, \&run_tests );
232fd394	19	}
	20	else {
	21	for ( 1 .. $iters ) {
	22	run_tests();
	23	}
	24	}
	25
	26	sub run_tests {
d8c66af5	27	{
	28	my @expected = qw[
	29	TestApp::Controller::Action::Forward->begin
	30	TestApp::Controller::Action::Forward->one
	31	TestApp::Controller::Action::Forward->two
	32	TestApp::Controller::Action::Forward->three
	33	TestApp::Controller::Action::Forward->four
	34	TestApp::Controller::Action::Forward->five
	35	TestApp::View::Dump::Request->process
46245bee	36	TestApp->end
d8c66af5	37	];
dd4e6fd2	38
d8c66af5	39	my $expected = join( ", ", @expected );
dd4e6fd2	40
d8c66af5	41	# Test forward to global private action
	42	ok( my $response = request('http://localhost/action/forward/global'),
	43	'Request' );
	44	ok( $response->is_success, 'Response Successful 2xx' );
	45	is( $response->content_type, 'text/plain', 'Response Content-Type' );
	46	is( $response->header('X-Catalyst-Action'),
	47	'action/forward/global', 'Main Class Action' );
40392ee9	48
d8c66af5	49	# Test forward to chain of actions.
	50	ok( $response = request('http://localhost/action/forward/one'),
	51	'Request' );
	52	ok( $response->is_success, 'Response Successful 2xx' );
	53	is( $response->content_type, 'text/plain', 'Response Content-Type' );
	54	is( $response->header('X-Catalyst-Action'),
	55	'action/forward/one', 'Test Action' );
	56	is(
	57	$response->header('X-Test-Class'),
	58	'TestApp::Controller::Action::Forward',
	59	'Test Class'
	60	);
	61	is( $response->header('X-Catalyst-Executed'),
	62	$expected, 'Executed actions' );
	63	like(
	64	$response->content,
	65	qr/^bless\( .* 'Catalyst::Request' \)$/s,
	66	'Content is a serialized Catalyst::Request'
	67	);
	68	}
dd4e6fd2	69
d8c66af5	70	{
	71	my @expected = qw[
	72	TestApp::Controller::Action::Forward->begin
	73	TestApp::Controller::Action::Forward->jojo
	74	TestApp::Controller::Action::Forward->one
	75	TestApp::Controller::Action::Forward->two
	76	TestApp::Controller::Action::Forward->three
	77	TestApp::Controller::Action::Forward->four
	78	TestApp::Controller::Action::Forward->five
	79	TestApp::View::Dump::Request->process
	80	TestApp::Controller::Action::Forward->three
	81	TestApp::Controller::Action::Forward->four
	82	TestApp::Controller::Action::Forward->five
	83	TestApp::View::Dump::Request->process
46245bee	84	TestApp->end
d8c66af5	85	];
dd4e6fd2	86
d8c66af5	87	my $expected = join( ", ", @expected );
dd4e6fd2	88
d8c66af5	89	ok( my $response = request('http://localhost/action/forward/jojo'),
	90	'Request' );
	91	ok( $response->is_success, 'Response Successful 2xx' );
	92	is( $response->content_type, 'text/plain', 'Response Content-Type' );
	93	is( $response->header('X-Catalyst-Action'),
	94	'action/forward/jojo', 'Test Action' );
	95	is(
	96	$response->header('X-Test-Class'),
	97	'TestApp::Controller::Action::Forward',
	98	'Test Class'
	99	);
	100	is( $response->header('X-Catalyst-Executed'),
	101	$expected, 'Executed actions' );
	102	like(
	103	$response->content,
	104	qr/^bless\( .* 'Catalyst::Request' \)$/s,
	105	'Content is a serialized Catalyst::Request'
	106	);
	107	}
a1dad9c1	108
d8c66af5	109	{
	110	ok(
	111	my $response =
	112	request('http://localhost/action/forward/with_args/old'),
	113	'Request with args'
	114	);
	115	ok( $response->is_success, 'Response Successful 2xx' );
	116	is( $response->content, 'old' );
	117	}
a1dad9c1	118
d8c66af5	119	{
	120	ok(
	121	my $response = request(
	122	'http://localhost/action/forward/with_method_and_args/old'),
	123	'Request with args and method'
	124	);
	125	ok( $response->is_success, 'Response Successful 2xx' );
	126	is( $response->content, 'old' );
	127	}
ab96c27a	128
d8c66af5	129	# test forward with embedded args
	130	{
	131	ok(
	132	my $response =
	133	request('http://localhost/action/forward/args_embed_relative'),
	134	'Request'
	135	);
	136	ok( $response->is_success, 'Response Successful 2xx' );
	137	is( $response->content, 'ok' );
	138	}
40392ee9	139
d8c66af5	140	{
	141	ok(
	142	my $response =
	143	request('http://localhost/action/forward/args_embed_absolute'),
	144	'Request'
	145	);
	146	ok( $response->is_success, 'Response Successful 2xx' );
	147	is( $response->content, 'ok' );
	148	}
46245bee	149	{
	150	my @expected = qw[
	151	TestApp::Controller::Action::Relative->begin
	152	TestApp::Controller::Action::Relative->relative
	153	TestApp::Controller::Action::Forward->one
	154	TestApp::Controller::Action::Forward->two
	155	TestApp::Controller::Action::Forward->three
	156	TestApp::Controller::Action::Forward->four
	157	TestApp::Controller::Action::Forward->five
	158	TestApp::View::Dump::Request->process
	159	TestApp->end
	160	];
	161
	162	my $expected = join( ", ", @expected );
	163
	164	# Test forward to chain of actions.
	165	ok( my $response = request('http://localhost/action/relative/relative'),
	166	'Request' );
	167	ok( $response->is_success, 'Response Successful 2xx' );
	168	is( $response->content_type, 'text/plain', 'Response Content-Type' );
	169	is( $response->header('X-Catalyst-Action'),
	170	'action/relative/relative', 'Test Action' );
	171	is(
	172	$response->header('X-Test-Class'),
	173	'TestApp::Controller::Action::Relative',
	174	'Test Class'
	175	);
	176	is( $response->header('X-Catalyst-Executed'),
	177	$expected, 'Executed actions' );
	178	like(
	179	$response->content,
	180	qr/^bless\( .* 'Catalyst::Request' \)$/s,
	181	'Content is a serialized Catalyst::Request'
	182	);
	183	}
	184	{
	185	my @expected = qw[
	186	TestApp::Controller::Action::Relative->begin
	187	TestApp::Controller::Action::Relative->relative_two
	188	TestApp::Controller::Action::Forward->one
	189	TestApp::Controller::Action::Forward->two
	190	TestApp::Controller::Action::Forward->three
	191	TestApp::Controller::Action::Forward->four
	192	TestApp::Controller::Action::Forward->five
	193	TestApp::View::Dump::Request->process
	194	TestApp->end
	195	];
	196
	197	my $expected = join( ", ", @expected );
	198
	199	# Test forward to chain of actions.
	200	ok(
	201	my $response =
	202	request('http://localhost/action/relative/relative_two'),
	203	'Request'
	204	);
	205	ok( $response->is_success, 'Response Successful 2xx' );
	206	is( $response->content_type, 'text/plain', 'Response Content-Type' );
	207	is(
	208	$response->header('X-Catalyst-Action'),
	209	'action/relative/relative_two',
	210	'Test Action'
	211	);
	212	is(
213	$response->header('X-Test-Class'),
214	'TestApp::Controller::Action::Relative',
215	'Test Class'
216	);
217	is( $response->header('X-Catalyst-Executed'),
218	$expected, 'Executed actions' );
219	like(
220	$response->content,
221	qr/^bless\( .* 'Catalyst::Request' \)$/s,
222	'Content is a serialized Catalyst::Request'
223	);
224	}
a1dad9c1	225	}