From: Joel Bernstein <joel@fysh.org>
Date: Tue, 22 Aug 2006 20:27:58 +0000 (+0000)
Subject: fixed parser test to skip tests when dependent modules are not installed
X-Git-Tag: v0.04~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=61994c33174c5f1d42f625796e6e412d8db57f3a;p=p5sagit%2FConfig-Any.git

fixed parser test to skip tests when dependent modules are not installed
---

diff --git a/t/20-parse.t b/t/20-parse.t
index 640bb79..db7ccde 100644
--- a/t/20-parse.t
+++ b/t/20-parse.t
@@ -3,25 +3,54 @@ package MockApp;
 use Test::More tests => 54;
 use Scalar::Util qw(blessed reftype);
 use Config::Any;
+use Config::Any::General;
+use Config::Any::INI;
+use Config::Any::JSON;
+use Config::Any::Perl;
+use Config::Any::XML;
+use Config::Any::YAML;
+
+
+my %ext_map = (
+	conf => 'Config::Any::General',
+	ini  => 'Config::Any::INI',
+	json => 'Config::Any::JSON',
+	pl   => 'Config::Any::Perl',
+	xml  => 'Config::Any::XML',
+	yml  => 'Config::Any::YAML'
+);
 
 my @files = map { "t/conf/$_" } 
 	qw(conf.conf conf.ini conf.json conf.pl conf.xml conf.yml);
 
 for my $f (@files) {
-	ok(my $c_arr = Config::Any->load_files({files=>[$f], use_ext=>1}), "load_files with use_ext works");
-	ok(my $c = $c_arr->[0], "load_files returns an arrayref");
-	ok(ref $c, "load_files arrayref contains a ref");
-	my $ref = blessed $c ? reftype $c : ref $c;
-	is(substr($ref,0,4), "HASH", "hashref");
-	my ($name, $cfg) = each %$c;
-	is($name, $f, "filename matches");
-	my $cfgref = blessed $cfg ? reftype $cfg : ref $cfg;
-	is(substr($cfgref,0,4), "HASH", "hashref cfg");
-
-	is( $cfg->{name}, 'TestApp', "appname parses" );
-	is( $cfg->{Component}{ "Controller::Foo" }->{ foo }, 'bar', 		  
-		"component->cntrlr->foo = bar" );
-	is( $cfg->{Model}{ "Model::Baz" }->{ qux }, 		 'xyzzy',		  
-		"model->model::baz->qux = xyzzy" );
+	my ($ext) = $f =~ m{ \. ( [^\.]+ ) \z }xms;
+	my $mod = $ext_map{$ext};
+	my $mod_load_result;
+	eval { $mod_load_result = $mod->load( $f ); delete $INC{$f} if $ext eq 'pl' };
+	SKIP: {
+		my $skip = !!$@;
+		skip "File loading backend for $mod not found", 9 if $skip;
+	
+		ok(my $c_arr = Config::Any->load_files({files=>[$f], use_ext=>1}), 
+			"load_files with use_ext works");
+		ok(my $c = $c_arr->[0], "load_files returns an arrayref");
+		
+		ok(ref $c, "load_files arrayref contains a ref");
+		my $ref = blessed $c ? reftype $c : ref $c;
+		is(substr($ref,0,4), "HASH", "hashref");
+
+		my ($name, $cfg) = each %$c;
+		is($name, $f, "filename matches");
+		
+		my $cfgref = blessed $cfg ? reftype $cfg : ref $cfg;
+		is(substr($cfgref,0,4), "HASH", "hashref cfg");
+
+		is( $cfg->{name}, 'TestApp', "appname parses" );
+		is( $cfg->{Component}{ "Controller::Foo" }->{ foo }, 'bar', 		  
+			"component->cntrlr->foo = bar" );
+		is( $cfg->{Model}{ "Model::Baz" }->{ qux }, 		 'xyzzy',		  
+			"model->model::baz->qux = xyzzy" );
+	}
 }