[Catalyst-commits] r6749 - in trunk/Catalyst-View-Mason/t: . lib lib/TestApp/View/Mason

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2007-08-28 16:58:12 +0100 (Tue, 28 Aug 2007)
New Revision: 6749

Added:
   trunk/Catalyst-View-Mason/t/appconfig.t
   trunk/Catalyst-View-Mason/t/lib/TestApp/View/Mason/Appconfig.pm
Modified:
   trunk/Catalyst-View-Mason/t/lib/TestApp.pm
   trunk/Catalyst-View-Mason/t/pkgconfig.t
Log:
Add tests for views using the application config.


Added: trunk/Catalyst-View-Mason/t/appconfig.t
===================================================================
--- trunk/Catalyst-View-Mason/t/appconfig.t	                        (rev 0)
+++ trunk/Catalyst-View-Mason/t/appconfig.t	2007-08-28 15:58:12 UTC (rev 6749)
@@ -0,0 +1,20 @@
+#!perl
+
+use strict;
+use warnings;
+use Test::More tests => 5;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+use_ok('Catalyst::Test', 'TestApp');
+
+my $response = request('/test?view=Appconfig');
+
+ok($response->is_success, 'request ok');
+is($response->content, TestApp->config->{default_message}, 'message ok');
+
+$response = request('/test?view=Appconfig&message=<<foo>>');
+
+ok($response->is_success, 'request with message ok');
+is($response->content, '&lt;&lt;foo&gt;&gt;', 'message ok');

Added: trunk/Catalyst-View-Mason/t/lib/TestApp/View/Mason/Appconfig.pm
===================================================================
--- trunk/Catalyst-View-Mason/t/lib/TestApp/View/Mason/Appconfig.pm	                        (rev 0)
+++ trunk/Catalyst-View-Mason/t/lib/TestApp/View/Mason/Appconfig.pm	2007-08-28 15:58:12 UTC (rev 6749)
@@ -0,0 +1,7 @@
+package TestApp::View::Mason::Appconfig;
+
+use strict;
+use warnings;
+use base 'Catalyst::View::Mason';
+
+1;

Modified: trunk/Catalyst-View-Mason/t/lib/TestApp.pm
===================================================================
--- trunk/Catalyst-View-Mason/t/lib/TestApp.pm	2007-08-28 15:58:06 UTC (rev 6748)
+++ trunk/Catalyst-View-Mason/t/lib/TestApp.pm	2007-08-28 15:58:12 UTC (rev 6749)
@@ -7,9 +7,12 @@
 our $VERSION = '0.01';
 
 __PACKAGE__->config(
-        name            => 'TestApp',
-        default_view    => 'Pkgconfig',
-        default_message => 'hi',
+        name                     => 'TestApp',
+        default_view             => 'Pkgconfig',
+        default_message          => 'hi',
+        'View::Mason::Appconfig' => {
+            default_escape_flags => ['h'],
+        },
 );
 
 __PACKAGE__->setup;

Modified: trunk/Catalyst-View-Mason/t/pkgconfig.t
===================================================================
--- trunk/Catalyst-View-Mason/t/pkgconfig.t	2007-08-28 15:58:06 UTC (rev 6748)
+++ trunk/Catalyst-View-Mason/t/pkgconfig.t	2007-08-28 15:58:12 UTC (rev 6749)
@@ -2,14 +2,19 @@
 
 use strict;
 use warnings;
-use Test::More tests => 3;
+use Test::More tests => 5;
 
 use FindBin;
 use lib "$FindBin::Bin/lib";
 
 use_ok('Catalyst::Test', 'TestApp');
 
-my $response = request('/test');
+my $response = request('/test?view=Pkgconfig');
 
 ok($response->is_success, 'request ok');
 is($response->content, TestApp->config->{default_message}, 'message ok');
+
+$response = request('/test?view=Pkgconfig&message=<<foo>>');
+
+ok($response->is_success, 'request with message ok');
+is($response->content, '<<foo>>', 'message ok');