4 use FindBin qw< $Bin >;
6 use constant App => 'TestAppArgsEmptyParens';
7 use Catalyst::Test App;
10 my $res = request('/chain_base/args/foo/bar');
11 is $res->content, 'Args', "request '/chain_base/args/foo/bar'";
15 my $res = request('/chain_base/args_empty/foo/bar');
16 is $res->content, 'Args()', "request '/chain_base/args_empty/foo/bar'";
19 eval { App->dispatcher->dispatch_type('Chained')->list(App) };
21 or diag "Died with: $@";
22 like $TestLogger::LOGS[-1], qr{chain_base\/args\/\.\.\.};
23 like $TestLogger::LOGS[-1], qr{chain_base\/args_empty\/\.\.\.};