[Catalyst-commits] r6725 - trunk/Config-Any/t

[bricas at dev.catalyst.perl.org]

Author: bricas
Date: 2007-08-23 15:33:42 +0100 (Thu, 23 Aug 2007)
New Revision: 6725

Modified:
   trunk/Config-Any/t/50-general.t
Log:
added test for config options to Config::General

Modified: trunk/Config-Any/t/50-general.t
===================================================================
--- trunk/Config-Any/t/50-general.t	2007-08-23 13:32:05 UTC (rev 6724)
+++ trunk/Config-Any/t/50-general.t	2007-08-23 14:33:42 UTC (rev 6725)
@@ -1,11 +1,16 @@
-use Test::More tests => 2;
+use Test::More tests => 4;
 
 use Config::Any::General;
 
 my $config = eval { Config::Any::General->load( 't/conf/conf.conf' ) };
 
 SKIP: {
-    skip "Couldn't Load Config::General plugin", 2 if $@;
+    skip "Couldn't Load Config::General plugin", 4 if $@;
     ok( $config );
     is( $config->{ name }, 'TestApp' );
+    ok( exists $config->{ Component } );
+
+    $config = eval { Config::Any::General->load( 't/conf/conf.conf', { -LowerCaseNames => 1 } ) };
+
+    ok( exists $config->{ component } );
 }