[Catalyst-commits] r6787 - trunk/Catalyst-View-Mason/t

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2007-08-28 17:02:23 +0100 (Tue, 28 Aug 2007)
New Revision: 6787

Modified:
   trunk/Catalyst-View-Mason/t/comp_root.t
Log:
Test if the root directory in comp_root.t is a plain string.

Otherwise this test doesn't make any sense.


Modified: trunk/Catalyst-View-Mason/t/comp_root.t
===================================================================
--- trunk/Catalyst-View-Mason/t/comp_root.t	2007-08-28 16:02:12 UTC (rev 6786)
+++ trunk/Catalyst-View-Mason/t/comp_root.t	2007-08-28 16:02:23 UTC (rev 6787)
@@ -2,7 +2,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 3;
+use Test::More tests => 4;
 
 use FindBin;
 use lib "$FindBin::Bin/lib";
@@ -14,6 +14,8 @@
 
 use_ok('Catalyst::Test', 'TestApp', 'foo');
 
+ok(!ref TestApp->config->{root}, 'root is a plain scalar');
+
 my $response = request('/test?view=Pkgconfig');
 
 ok($response->is_success, 'request ok');