[catagits/Catalyst-Runtime.git] / t / aggregate / live_component_controller_action_go.t

use strict;
use warnings;

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

our $iters;

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

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

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

sub run_tests {
    {
        # Test go to global private action
        ok( my $response = request('http://localhost/action/go/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/go/global', 'Main Class Action' );
    }

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

        @expected = map { /Action/ ? (_begin($_), $_) : ($_) } @expected;
        my $expected = join( ", ", @expected );

        # Test go to chain of actions.
        ok( my $response = request('http://localhost/action/go/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/go/one', 'Test Action' );
        is(
            $response->header('X-Test-Class'),
            'TestApp::Controller::Action::Go',
            '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::Go->go_die
          TestApp::Controller::Action::Go->args
          TestApp::Controller::Root->end
        ];

        @expected = map { /Action/ ? (_begin($_), $_) : ($_) } @expected;
        my $expected = join( ", ", @expected );

        ok( my $response = request('http://localhost/action/go/go_die'),
            'Request' );
        ok( $response->is_success, 'Response Successful 2xx' );
        is( $response->content_type, 'text/plain', 'Response Content-Type' );
        is( $response->header('X-Catalyst-Action'),
            'action/go/go_die', 'Test Action'
        );
        is(
            $response->header('X-Test-Class'),
            'TestApp::Controller::Action::Go',
            'Test Class'
        );
        is( $response->header('X-Catalyst-Executed'),
            $expected, 'Executed actions' );
        is( $response->content, $Catalyst::GO, "Go died as expected" );
    }
    {
        ok(
            my $response = request('http://localhost/action/go/model'),
            'Request with args'
        );
        is( $response->content,
            q[FATAL ERROR: Couldn't go("Model::Foo"): Action cannot _DISPATCH. Did you try to go() a non-controller action?],
            q[go('Model::...') test]
        );
    }
    {
        ok(
            my $response = request('http://localhost/action/go/view'),
            'Request with args'
        );
        is( $response->content,
            q[FATAL ERROR: Couldn't go("View::Dump"): Action cannot _DISPATCH. Did you try to go() a non-controller action?],
            q[go('View::...') test]
        );
    }
    {
        ok(
            my $response =
              request('http://localhost/action/go/with_args/old'),
            'Request with args'
        );
        ok( $response->is_success, 'Response Successful 2xx' );
        is( $response->content, 'old', 'go() with args (old)' );
    }

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

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

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

        @expected = map { /Action/ ? (_begin($_), $_) : ($_) } @expected;
        my $expected = join( ", ", @expected );

        # Test go to chain of actions.
        ok( my $response = request('http://localhost/action/relative/relative_go'),
            '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_go', 'Test Action' );
        is(
            $response->header('X-Test-Class'),
            'TestApp::Controller::Action::Go',
            '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::TestRelative->relative_go_two
          TestApp::Controller::Action::Go->one
          TestApp::Controller::Action::Go->two
          TestApp::Controller::Action::Go->three
          TestApp::Controller::Action::Go->four
          TestApp::Controller::Action::Go->five
          TestApp::View::Dump::Request->process
          TestApp::Controller::Root->end
        ];

        @expected = map { /Action/ ? (_begin($_), $_) : ($_) } @expected;
        my $expected = join( ", ", @expected );

        # Test go to chain of actions.
        ok(
            my $response =
              request('http://localhost/action/relative/relative_go_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_go_two',
            'Test Action'
        );
        is(
            $response->header('X-Test-Class'),
            'TestApp::Controller::Action::Go',
            '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'
        );
    }

    # test class go -- MUST FAIL!
    {
        ok(
            my $response = request(
                'http://localhost/action/go/class_go_test_action'),
            'Request'
        );
        ok( !$response->is_success, 'Response Fails' );
        is( $response->content,
            q(FATAL ERROR: Couldn't go("TestApp"): Action has no namespace: cannot go() to a plain method or component, must be an :Action of some sort.),
            'Error message'
        );
    }

    {
        my @expected = qw[
          TestApp::Controller::Action::Go->begin
          TestApp::Controller::Action::Go->go_chained
          TestApp::Controller::Action::Chained->begin
          TestApp::Controller::Action::Chained->foo
          TestApp::Controller::Action::Chained::Foo->spoon
          TestApp::Controller::Action::Chained->end
        ];

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

        ok( my $response = request('http://localhost/action/go/go_chained'), 'go to chained + subcontroller endpoint' );
        is( $response->header('X-Catalyst-Executed'),
            $expected, 'Executed actions' );
        is( $response->content, 'captureme; arg1, arg2', 'Content OK' );
    }

}


sub _begin {
    local $_ = shift;
    s/->(.*)$/->begin/;
    return $_;
}
Commit	Line	Data
2f381252	1	use strict;
	2	use warnings;
	3
	4	use FindBin;
42da66a9	5	use lib "$FindBin::Bin/../lib";
2f381252	6
	7	our $iters;
	8
	9	BEGIN { $iters = $ENV{CAT_BENCH_ITERS} \|\| 1; }
	10
ae0e35ee	11	use Test::More tests => 54 * $iters;
cbacfd76	12	use Catalyst;
2f381252	13	use Catalyst::Test 'TestApp';
	14
	15	if ( $ENV{CAT_BENCHMARK} ) {
	16	require Benchmark;
	17	Benchmark::timethis( $iters, \&run_tests );
	18	}
	19	else {
	20	for ( 1 .. $iters ) {
	21	run_tests();
	22	}
	23	}
	24
	25	sub run_tests {
	26	{
	27	# Test go to global private action
	28	ok( my $response = request('http://localhost/action/go/global'),
	29	'Request' );
	30	ok( $response->is_success, 'Response Successful 2xx' );
	31	is( $response->content_type, 'text/plain', 'Response Content-Type' );
	32	is( $response->header('X-Catalyst-Action'),
	33	'action/go/global', 'Main Class Action' );
	34	}
	35
	36	{
	37	my @expected = qw[
	38	TestApp::Controller::Action::Go->one
	39	TestApp::Controller::Action::Go->two
	40	TestApp::Controller::Action::Go->three
	41	TestApp::Controller::Action::Go->four
	42	TestApp::Controller::Action::Go->five
	43	TestApp::View::Dump::Request->process
a0a66cb8	44	TestApp::Controller::Root->end
2f381252	45	];
	46
	47	@expected = map { /Action/ ? (_begin($_), $_) : ($_) } @expected;
	48	my $expected = join( ", ", @expected );
	49
	50	# Test go to chain of actions.
	51	ok( my $response = request('http://localhost/action/go/one'),
	52	'Request' );
	53	ok( $response->is_success, 'Response Successful 2xx' );
	54	is( $response->content_type, 'text/plain', 'Response Content-Type' );
	55	is( $response->header('X-Catalyst-Action'),
	56	'action/go/one', 'Test Action' );
	57	is(
	58	$response->header('X-Test-Class'),
	59	'TestApp::Controller::Action::Go',
	60	'Test Class'
	61	);
	62	is( $response->header('X-Catalyst-Executed'),
	63	$expected, 'Executed actions' );
	64	like(
	65	$response->content,
	66	qr/^bless\( .* 'Catalyst::Request' \)$/s,
	67	'Content is a serialized Catalyst::Request'
	68	);
	69	}
	70
	71	{
	72	my @expected = qw[
	73	TestApp::Controller::Action::Go->go_die
	74	TestApp::Controller::Action::Go->args
a0a66cb8	75	TestApp::Controller::Root->end
2f381252	76	];
	77
	78	@expected = map { /Action/ ? (_begin($_), $_) : ($_) } @expected;
	79	my $expected = join( ", ", @expected );
	80
	81	ok( my $response = request('http://localhost/action/go/go_die'),
	82	'Request' );
	83	ok( $response->is_success, 'Response Successful 2xx' );
	84	is( $response->content_type, 'text/plain', 'Response Content-Type' );
	85	is( $response->header('X-Catalyst-Action'),
	86	'action/go/go_die', 'Test Action'
	87	);
	88	is(
	89	$response->header('X-Test-Class'),
	90	'TestApp::Controller::Action::Go',
	91	'Test Class'
	92	);
	93	is( $response->header('X-Catalyst-Executed'),
	94	$expected, 'Executed actions' );
	95	is( $response->content, $Catalyst::GO, "Go died as expected" );
	96	}
ae0e35ee	97	{
	98	ok(
	99	my $response = request('http://localhost/action/go/model'),
	100	'Request with args'
	101	);
	102	is( $response->content,
	103	q[FATAL ERROR: Couldn't go("Model::Foo"): Action cannot _DISPATCH. Did you try to go() a non-controller action?],
	104	q[go('Model::...') test]
	105	);
	106	}
	107	{
	108	ok(
	109	my $response = request('http://localhost/action/go/view'),
	110	'Request with args'
	111	);
	112	is( $response->content,
	113	q[FATAL ERROR: Couldn't go("View::Dump"): Action cannot _DISPATCH. Did you try to go() a non-controller action?],
	114	q[go('View::...') test]
	115	);
	116	}
2f381252	117	{
	118	ok(
	119	my $response =
	120	request('http://localhost/action/go/with_args/old'),
	121	'Request with args'
	122	);
	123	ok( $response->is_success, 'Response Successful 2xx' );
ae0e35ee	124	is( $response->content, 'old', 'go() with args (old)' );
2f381252	125	}
	126
	127	{
	128	ok(
	129	my $response = request(
	130	'http://localhost/action/go/with_method_and_args/new'),
	131	'Request with args and method'
	132	);
	133	ok( $response->is_success, 'Response Successful 2xx' );
ae0e35ee	134	is( $response->content, 'new', 'go() with args (new)' );
2f381252	135	}
	136
	137	# test go with embedded args
	138	{
	139	ok(
	140	my $response =
	141	request('http://localhost/action/go/args_embed_relative'),
	142	'Request'
	143	);
	144	ok( $response->is_success, 'Response Successful 2xx' );
ae0e35ee	145	is( $response->content, 'ok', 'go() with args_embed_relative' );
2f381252	146	}
	147
	148	{
	149	ok(
	150	my $response =
	151	request('http://localhost/action/go/args_embed_absolute'),
	152	'Request'
	153	);
	154	ok( $response->is_success, 'Response Successful 2xx' );
ae0e35ee	155	is( $response->content, 'ok', 'go() with args_embed_absolute' );
2f381252	156	}
	157	{
	158	my @expected = qw[
	159	TestApp::Controller::Action::TestRelative->relative_go
	160	TestApp::Controller::Action::Go->one
	161	TestApp::Controller::Action::Go->two
	162	TestApp::Controller::Action::Go->three
	163	TestApp::Controller::Action::Go->four
	164	TestApp::Controller::Action::Go->five
	165	TestApp::View::Dump::Request->process
a0a66cb8	166	TestApp::Controller::Root->end
2f381252	167	];
	168
	169	@expected = map { /Action/ ? (_begin($_), $_) : ($_) } @expected;
	170	my $expected = join( ", ", @expected );
	171
	172	# Test go to chain of actions.
	173	ok( my $response = request('http://localhost/action/relative/relative_go'),
	174	'Request' );
	175	ok( $response->is_success, 'Response Successful 2xx' );
	176	is( $response->content_type, 'text/plain', 'Response Content-Type' );
	177	is( $response->header('X-Catalyst-Action'),
	178	'action/relative/relative_go', 'Test Action' );
	179	is(
	180	$response->header('X-Test-Class'),
	181	'TestApp::Controller::Action::Go',
	182	'Test Class'
	183	);
	184	is( $response->header('X-Catalyst-Executed'),
	185	$expected, 'Executed actions' );
	186	like(
	187	$response->content,
	188	qr/^bless\( .* 'Catalyst::Request' \)$/s,
	189	'Content is a serialized Catalyst::Request'
	190	);
	191	}
	192	{
	193	my @expected = qw[
	194	TestApp::Controller::Action::TestRelative->relative_go_two
	195	TestApp::Controller::Action::Go->one
	196	TestApp::Controller::Action::Go->two
	197	TestApp::Controller::Action::Go->three
	198	TestApp::Controller::Action::Go->four
	199	TestApp::Controller::Action::Go->five
	200	TestApp::View::Dump::Request->process
a0a66cb8	201	TestApp::Controller::Root->end
2f381252	202	];
	203
	204	@expected = map { /Action/ ? (_begin($_), $_) : ($_) } @expected;
	205	my $expected = join( ", ", @expected );
	206
	207	# Test go to chain of actions.
	208	ok(
	209	my $response =
	210	request('http://localhost/action/relative/relative_go_two'),
	211	'Request'
	212	);
	213	ok( $response->is_success, 'Response Successful 2xx' );
	214	is( $response->content_type, 'text/plain', 'Response Content-Type' );
	215	is(
	216	$response->header('X-Catalyst-Action'),
	217	'action/relative/relative_go_two',
	218	'Test Action'
	219	);
	220	is(
	221	$response->header('X-Test-Class'),
	222	'TestApp::Controller::Action::Go',
	223	'Test Class'
	224	);
	225	is( $response->header('X-Catalyst-Executed'),
	226	$expected, 'Executed actions' );
	227	like(
	228	$response->content,
	229	qr/^bless\( .* 'Catalyst::Request' \)$/s,
	230	'Content is a serialized Catalyst::Request'
	231	);
	232	}
	233
	234	# test class go -- MUST FAIL!
	235	{
	236	ok(
	237	my $response = request(
	238	'http://localhost/action/go/class_go_test_action'),
	239	'Request'
	240	);
	241	ok( !$response->is_success, 'Response Fails' );
ae0e35ee	242	is( $response->content,
0f0d5870	243	q(FATAL ERROR: Couldn't go("TestApp"): Action has no namespace: cannot go() to a plain method or component, must be an :Action of some sort.),
ae0e35ee	244	'Error message'
ae0e35ee	245	);
2f381252	246	}
	247
	248	{
	249	my @expected = qw[
	250	TestApp::Controller::Action::Go->begin
	251	TestApp::Controller::Action::Go->go_chained
	252	TestApp::Controller::Action::Chained->begin
	253	TestApp::Controller::Action::Chained->foo
	254	TestApp::Controller::Action::Chained::Foo->spoon
	255	TestApp::Controller::Action::Chained->end
	256	];
	257
	258	my $expected = join( ", ", @expected );
	259
	260	ok( my $response = request('http://localhost/action/go/go_chained'), 'go to chained + subcontroller endpoint' );
	261	is( $response->header('X-Catalyst-Executed'),
	262	$expected, 'Executed actions' );
e1e81442	263	is( $response->content, 'captureme; arg1, arg2', 'Content OK' );
2f381252	264	}
	265
	266	}
	267
	268
	269
	270	sub _begin {
	271	local $_ = shift;
	272	s/->(.*)$/->begin/;
	273	return $_;
	274	}
	275