Fix repo metadata

[catagits/CatalystX-Routes.git] / t / routes.t

diff --git a/t/routes.t b/t/routes.t
index 25591bc..52296ec 100644 (file)
--- a/t/routes.t
+++ b/t/routes.t
@@ -15,7 +15,7 @@ use HTTP::Request::Common qw( GET PUT POST DELETE );
         'GET request for /foo went to the right sub'
     );
 
-    request( GET '/foo', ( Accept => '*/*', ) );
+    request( GET '/foo', ( Accept => '*/*' ) );
 
     is(
         $MyApp1::Controller::C1::REQ{get_html}, 1,
@@ -82,7 +82,7 @@ use HTTP::Request::Common qw( GET PUT POST DELETE );
 }
 
 {
-    get('/chain1/42/chain2/84/baz/foo');
+    request( GET '/chain1/42/chain2/84/baz/foo' );
 
     is(
         $MyApp1::Controller::C1::REQ{chain1}, 42,
@@ -101,7 +101,35 @@ use HTTP::Request::Common qw( GET PUT POST DELETE );
 }
 
 {
-    get('/normal');
+    request( GET '/user/99' );
+
+    is(
+        $MyApp1::Controller::C1::REQ{user}, 99,
+        'get /user/99 calls _set_user chain point'
+    );
+
+    is(
+        $MyApp1::Controller::C1::REQ{user_end}, 99,
+        'get /user/99 calls get chained from _set_user'
+    );
+}
+
+{
+    request( GET '/thing/99' );
+
+    is(
+        $MyApp1::Controller::C1::REQ{thing}, 99,
+        'get /thing/99 calls _set_thing chain point'
+    );
+
+    is(
+        $MyApp1::Controller::C1::REQ{thing_end}, 99,
+        'get /thing/99 calls get chained from _set_thing'
+    );
+}
+
+{
+    request( GET '/normal' );
 
     is(
         $MyApp1::Controller::C1::REQ{normal}, 1,
@@ -116,4 +144,20 @@ use HTTP::Request::Common qw( GET PUT POST DELETE );
     );
 }
 
+{
+    request( GET '/' );
+
+    is(
+        $MyApp1::Controller::Root::REQ{root}, 1,
+        'GET request for / went to the right sub (routes work when namespace is empty string)'
+    );
+
+    request( GET '/foo.txt' );
+
+    is(
+        $MyApp1::Controller::Root::REQ{'foo.txt'}, 1,
+        'GET request for /foo.txt went to the right sub (routes work when namespace is empty string)'
+    );
+}
+
 done_testing();