[Catalyst-commits] r6749 - in trunk/Catalyst-View-Mason/t: . lib
lib/TestApp/View/Mason
rafl at dev.catalyst.perl.org
rafl at dev.catalyst.perl.org
Tue Aug 28 16:58:13 GMT 2007
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, '<<foo>>', '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');
More information about the Catalyst-commits
mailing list