Added test for optional :Args when using :ChildOf

[catagits/Catalyst-Runtime.git] / t / lib / TestApp / Controller / Action / ChildOf.pm

diff --git a/t/lib/TestApp/Controller/Action/ChildOf.pm b/t/lib/TestApp/Controller/Action/ChildOf.pm
index 8370582..5f91d88 100644 (file)
--- a/t/lib/TestApp/Controller/Action/ChildOf.pm
+++ b/t/lib/TestApp/Controller/Action/ChildOf.pm
@@ -73,6 +73,11 @@ sub priority_b1 :PathPart('childof/priority_b') :ChildOf('/') :Args(3) { }
 sub priority_b2 :PathPart('childof/priority_b') :ChildOf('/') :Captures(1) { }
 sub priority_b2_end :PathPart('end') :ChildOf('priority_b2') :Args(1) { }
 
+#
+#   Optional specification of :Args in endpoint
+#
+sub opt_args :PathPart('childof/opt_args') :ChildOf('/') { }
+
 sub end :Private {
   my ($self, $c) = @_;
   my $out = join('; ', map { join(', ', @$_) }