[catagits/Catalyst-Runtime.git] / t / args-empty-parens-bug.t

use warnings;
use strict;
use Test::More;
use FindBin qw< $Bin >;
use lib "$Bin/lib";
use constant App => 'TestAppArgsEmptyParens';
use Catalyst::Test App;

{
    my $res = request('/chain_base/args/foo/bar');
    is $res->content, 'Args', "request '/chain_base/args/foo/bar'";
}

{
    my $res = request('/chain_base/args_empty/foo/bar');
    is $res->content, 'Args()', "request '/chain_base/args_empty/foo/bar'";
}

eval { App->dispatcher->dispatch_type('Chained')->list(App) };
ok !$@, "didn't die"
    or diag "Died with: $@";
like $TestLogger::LOGS[-1], qr{/args\s*\Q(...)\E};
like $TestLogger::LOGS[-1], qr{/args_empty\s*\Q(...)\E};

done_testing;

__END__
Commit	Line	Data
1c20c639	1	use warnings;
	2	use strict;
	3	use Test::More;
	4	use FindBin qw< $Bin >;
	5	use lib "$Bin/lib";
	6	use constant App => 'TestAppArgsEmptyParens';
	7	use Catalyst::Test App;
	8
	9	{
	10	my $res = request('/chain_base/args/foo/bar');
	11	is $res->content, 'Args', "request '/chain_base/args/foo/bar'";
	12	}
	13
	14	{
	15	my $res = request('/chain_base/args_empty/foo/bar');
	16	is $res->content, 'Args()', "request '/chain_base/args_empty/foo/bar'";
	17	}
	18
	19	eval { App->dispatcher->dispatch_type('Chained')->list(App) };
	20	ok !$@, "didn't die"
	21	or diag "Died with: $@";
	22	like $TestLogger::LOGS[-1], qr{/args\s*\Q(...)\E};
	23	like $TestLogger::LOGS[-1], qr{/args_empty\s*\Q(...)\E};
	24
	25	done_testing;
	26
	27	__END__
	28