-

git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@72 be1acefe-a474-0410-9a34-9b3221f2030f

t/PathObject.pm

@@ -0,0 +1,24 @@
+#
+# Pathobject fake module to test Config::General
+# without the need to install Path::Class::File module.
+#
+# Submitted by Matt S Trout, Copyright (c) 2009 Matt S Trout.
+
+
+package PathObject;
+
+use overload ('""' => 'stringify');
+
+sub new {
+       my $class = shift;
+       my $self = {};
+       bless $self, $class;
+       return $self;
+}
+
+sub stringify {
+       my ($self) = @_;
+       return "t/test.rc";
+}
+
+1;

t/run.t

@@ -8,7 +8,7 @@
 
 
 use Data::Dumper;
-use Test::More tests => 51;
+use Test::More tests => 53;
 #use Test::More qw(no_plan);
 
 # ahem, we deliver the test code with a local copy of
@@ -650,3 +650,15 @@ my $cfg48 = new Config::General(
 %hash48 = $cfg48->getall();
 my $str48 = $cfg48->save_string(\%hash48);
 is( $str48, $ostr48, "tied hash test");
+
+
+# Check whether we can create a C::G object when -ConfigFile is passed as a stringify-able object.
+use PathObject;
+my $cfgFileObject = new PathObject;
+my $cfg49 = new Config::General(
+				-ConfigFile => $cfgFileObject,
+				-ExtendedAccess    => 1
+    );
+ok($cfg49, "Creating a new object using the stringify-able file object way");
+my $domain49 = $cfg49->keys("domain");
+ok($domain49, "Config object created using the stringify-able file object way contains the domain section.");