Test for recent regression parsing Args()

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

diff --git a/t/args-empty-parens-bug.t b/t/args-empty-parens-bug.t
new file mode 100644 (file)
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__
+