drop Catalyst::Action::REST from test

[catagits/Catalyst-Runtime.git] / t / bad_warnings.t

diff --git a/t/bad_warnings.t b/t/bad_warnings.t
index 2aabc28..1b914f6 100644 (file)
--- a/t/bad_warnings.t
+++ b/t/bad_warnings.t
@@ -3,7 +3,7 @@ use strict;
 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;
 
@@ -20,16 +20,28 @@ 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;
   }
 
 
@@ -40,13 +52,15 @@ my $error;
 
   $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]);
@@ -54,4 +68,4 @@ if($error) {
   ok 1;
 }
 
-done_testing(3);
+done_testing(6);