Added chain_point to create a non-REST chain point - added tests

[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 0646229..2b53f62 100644 (file)
--- a/t/lib/MyApp1/Controller/C1.pm
+++ b/t/lib/MyApp1/Controller/C1.pm
@@ -33,6 +33,23 @@ put 'bar'=> \&_put;
 
 del 'bar'=> \&_del;
 
+chain_point '_set_chain1'
+    => chained '/'
+    => path_part 'chain1'
+    => capture_args 1
+    => sub { $REQ{chain1} = $_[2] };
+
+chain_point '_set_chain2'
+    => chained '_set_chain1'
+    => path_part 'chain2'
+    => capture_args 1
+    => sub { $REQ{chain2} = $_[2] };
+
+get 'baz'
+    => chained '_set_chain2'
+    => args 1
+    => sub { $REQ{baz} = $_[2] };
+
 sub normal : Chained('/') : Args(0) {
     $REQ{normal}++;
 }