test empty path part

[catagits/CatalystX-Routes.git] / t / lib / MyApp1 / Controller / C1.pm

diff --git a/t/lib/MyApp1/Controller/C1.pm b/t/lib/MyApp1/Controller/C1.pm
index 2b53f62..23e315e 100644 (file)
--- a/t/lib/MyApp1/Controller/C1.pm
+++ b/t/lib/MyApp1/Controller/C1.pm
@@ -50,6 +50,17 @@ get 'baz'
     => args 1
     => sub { $REQ{baz} = $_[2] };
 
+chain_point '_set_user'
+    => chained '/'
+    => path_part 'user'
+    => capture_args 1
+    => sub { $REQ{user} = $_[2] };
+
+get ''
+    => chained '_set_user'
+    => args 0
+    => sub { $REQ{empty} = $REQ{user} };
+
 sub normal : Chained('/') : Args(0) {
     $REQ{normal}++;
 }