fixed regression with action_role namespaces being lost (created last release) and...
[catagits/CatalystX-Declare.git] / t / lib / TestApp / Controller / ActionParams.pm
index 4b524a7..8208d04 100644 (file)
@@ -19,15 +19,15 @@ controller ::Controller::ActionParams {
     as 'actionparams';
 
     action first under base
-    with hasActionParams(p1=>100,p2=>101) 
-    is final { 
+    with hasActionParams(p1=>100,p2=>101)
+    is final {
         my $p1 = $ctx->controller->action_for('first')->p1;
         my $p2 = $ctx->controller->action_for('first')->p2;
         $ctx->response->body("action_args_first: $p1,$p2");
     }
 
     action second under base
-    with hasActionParams({p1=>200,p2=>201}) 
+    with hasActionParams({p1=>200,p2=>201})
     is final {
         my $p1 = $ctx->controller->action_for('second')->p1;
         my $p2 = $ctx->controller->action_for('second')->p2;
@@ -53,5 +53,22 @@ controller ::Controller::ActionParams {
         my $p2 = $ctx->controller->action_for('forth')->p2;
         $ctx->response->body("action_args_forth: $p1,$p2");
     }
+
+    action first_app_ns under base
+    with hasActionParams_AppNS(p1=>100,p2=>101)
+    is final {
+        my $p1 = $ctx->controller->action_for('first')->p1;
+        my $p2 = $ctx->controller->action_for('first')->p2;
+        $ctx->response->body("action_args_first: $p1,$p2");
+    }
+
+    action first_cat_ns under base
+    with hasActionParams_CatNS(p1=>100,p2=>101)
+    is final {
+        my $p1 = $ctx->controller->action_for('first')->p1;
+        my $p2 = $ctx->controller->action_for('first')->p2;
+        $ctx->response->body("action_args_first: $p1,$p2");
+    }
+
 }