X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Fargs-empty-parens-bug.t;fp=t%2Fargs-empty-parens-bug.t;h=285fc6e738981cd5b433b544b2ab64be82de9460;hp=0000000000000000000000000000000000000000;hb=1c20c63931df63b579c27cf822bc933211d33df9;hpb=d47640840f28d5fd03cd9606946f1b35cde805c6

diff --git a/t/args-empty-parens-bug.t b/t/args-empty-parens-bug.t
new file mode 100644
index 0000000..285fc6e
--- /dev/null
+++ b/t/args-empty-parens-bug.t
@@ -0,0 +1,28 @@
+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__
+