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

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-05-28 14:47:07 +0100 (Wed, 28 May 2008)
New Revision: 7836

Added:
   trunk/Catalyst-View-Mason/t/data_dir_default.t
   trunk/Catalyst-View-Mason/t/lib/TestApp/View/Mason.pm
   trunk/Catalyst-View-Mason/t/lib/TestApp2.pm
   trunk/Catalyst-View-Mason/t/lib/TestApp2/
   trunk/Catalyst-View-Mason/t/lib/TestApp2/View/
   trunk/Catalyst-View-Mason/t/lib/TestApp2/View/Mason.pm
Log:
Add a test for data_dir defaults to be different for different applications and users.


Added: trunk/Catalyst-View-Mason/t/data_dir_default.t
===================================================================
--- trunk/Catalyst-View-Mason/t/data_dir_default.t	                        (rev 0)
+++ trunk/Catalyst-View-Mason/t/data_dir_default.t	2008-05-28 13:47:07 UTC (rev 7836)
@@ -0,0 +1,18 @@
+#!perl
+
+use strict;
+use warnings;
+use Test::More tests => 3;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+my @apps = qw/TestApp TestApp2/;
+use_ok($_) for @apps;
+
+my @data_dirs = map {
+    my $pkg = $_ . '::View::Mason';
+    $pkg->config->{data_dir}
+} @apps;
+
+isnt($data_dirs[0], $data_dirs[1], 'different apps get different data_dir defaults');

Added: trunk/Catalyst-View-Mason/t/lib/TestApp/View/Mason.pm
===================================================================
--- trunk/Catalyst-View-Mason/t/lib/TestApp/View/Mason.pm	                        (rev 0)
+++ trunk/Catalyst-View-Mason/t/lib/TestApp/View/Mason.pm	2008-05-28 13:47:07 UTC (rev 7836)
@@ -0,0 +1,11 @@
+package TestApp::View::Mason;
+
+use strict;
+use warnings;
+use base qw/Catalyst::View::Mason/;
+
+__PACKAGE__->config(
+        use_match => 0,
+);
+
+1;

Added: trunk/Catalyst-View-Mason/t/lib/TestApp2/View/Mason.pm
===================================================================
--- trunk/Catalyst-View-Mason/t/lib/TestApp2/View/Mason.pm	                        (rev 0)
+++ trunk/Catalyst-View-Mason/t/lib/TestApp2/View/Mason.pm	2008-05-28 13:47:07 UTC (rev 7836)
@@ -0,0 +1,11 @@
+package TestApp2::View::Mason;
+
+use strict;
+use warnings;
+use base qw/Catalyst::View::Mason/;
+
+__PACKAGE__->config(
+        use_match => 0,
+);
+
+1;

Added: trunk/Catalyst-View-Mason/t/lib/TestApp2.pm
===================================================================
--- trunk/Catalyst-View-Mason/t/lib/TestApp2.pm	                        (rev 0)
+++ trunk/Catalyst-View-Mason/t/lib/TestApp2.pm	2008-05-28 13:47:07 UTC (rev 7836)
@@ -0,0 +1,11 @@
+package TestApp2;
+
+use strict;
+use warnings;
+use Catalyst;
+
+our $VERSION = '0.01';
+
+__PACKAGE__->setup;
+
+1;