added test for config options to Config::General
Brian Cassidy [Thu, 23 Aug 2007 14:33:42 +0000 (14:33 +0000)]
t/50-general.t

index 9d4a884..34cc74c 100644 (file)
@@ -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 } );
 }