use Test::More;
use HTTP::Request::Common;
-# In DEBUG mode, we get not a number warnigs
+# In DEBUG mode, we get not a number warnigs
my $error;
$c->response->body("This is the body");
}
- sub infinity :Chained(root) PathPart('test') Args {
+ sub infinity :Chained(root) PathPart('test') Args {
my ($self, $c) = @_;
$c->response->body("This is the body");
- Test::More::is $c->action->normalized_arg_number, ~0;
+ Test::More::is $c->action->comparable_arg_number, ~0;
+ }
+
+ sub midpoint :Chained(root) PathPart('') CaptureArgs('"Int"') {
+ my ($self, $c) = @_;
+ Test::More::is $c->action->number_of_captures, 1;
+ #Test::More::is $c->action->number_of_captures_constraints, 1;
+ }
+
+ sub endpoint :Chained('midpoint') Args('"Int"') {
+ my ($self, $c) = @_;
+ Test::More::is $c->action->comparable_arg_number, 1;
+ Test::More::is $c->action->normalized_arg_number, 1;
}
sub local :Local Args {
my ($self, $c) = @_;
$c->response->body("This is the body");
- Test::More::is $c->action->normalized_arg_number, ~0;
+ Test::More::is $c->action->comparable_arg_number, ~0;
}
$SIG{__WARN__} = sub { $error = shift };
- MyApp->setup;
+ MyApp->setup('-Log=fatal');
}
use Catalyst::Test 'MyApp';
request GET '/root/test/a/b/c';
request GET '/root/local/a/b/c';
+request GET '/root/11/endpoint/22';
+
if($error) {
unlike($error, qr[Argument ""Int"" isn't numeric in repeat]);
ok 1;
}
-done_testing(3);
+done_testing(6);