[Catalyst-commits] r8131 - trunk/Catalyst-View-Mason/t/lib

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-07-17 02:37:44 +0100 (Thu, 17 Jul 2008)
New Revision: 8131

Modified:
   trunk/Catalyst-View-Mason/t/lib/TestApp.pm
Log:
Properly use default_view in the tests.

Modified: trunk/Catalyst-View-Mason/t/lib/TestApp.pm
===================================================================
--- trunk/Catalyst-View-Mason/t/lib/TestApp.pm	2008-07-17 01:37:39 UTC (rev 8130)
+++ trunk/Catalyst-View-Mason/t/lib/TestApp.pm	2008-07-17 01:37:44 UTC (rev 8131)
@@ -9,7 +9,7 @@
 
 __PACKAGE__->config(
         name                     => 'TestApp',
-        default_view             => 'Appconfig',
+        default_view             => 'Mason::Appconfig',
         default_message          => 'hi',
         'View::Mason::Appconfig' => {
             default_escape_flags => ['h'],
@@ -107,8 +107,8 @@
     return 1 if $c->response->status =~ /^3\d\d$/;
     return 1 if $c->response->body;
 
-    my $view = 'Mason::' . ($c->request->param('view') || $c->config->{default_view});
-    $c->forward( $c->view($view) );
+    my ($requested_view) = $c->request->param('view');
+    $c->forward($c->view( $requested_view ? $requested_view : () ));
 }
 
 1;