Use perl test-config file to avoid test failures due to missing yaml …

…parser
maros · Apr 9, 2012 · ad1ccd8 · ad1ccd8
1 parent 9caed85
commit ad1ccd8
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 10 deletions.
diff --git a/t/04_plugin_config.t b/t/04_plugin_config.t
@@ -12,7 +12,7 @@ use Test01;
 
 {
     explain('Test 1: Command with config');
-    local @ARGV = qw(command_a --config t/config.yml);
+    local @ARGV = qw(command_a --config t/config.pl);
     my $test01 = Test01->new_with_command;
     isa_ok($test01,'Test01::CommandA');
 
@@ -24,15 +24,15 @@ use Test01;
 
 {
     explain('Test 2: Another command with config');
-    local @ARGV = qw(command_b --config t/config.yml);
+    local @ARGV = qw(command_b --config t/config.pl);
     my $test01 = Test01->new_with_command;
     isa_ok($test01,'Test01::CommandB');
     is($test01->global,'123','Arg from command config');
 }
 
 {
     explain('Test 3: Command with config and argv');
-    local @ARGV = qw(command_a --config t/config.yml --global 1234);
+    local @ARGV = qw(command_a --config t/config.pl --global 1234);
     my $test01 = Test01->new_with_command;
     isa_ok($test01,'Test01::CommandA');
     is($test01->global,'1234','Arg from command config');
@@ -41,7 +41,7 @@ use Test01;
 
 {
     explain('Test 4: Missing config');
-    local @ARGV = qw(command_a --config t/nosuchfile.yml --global 1234);
+    local @ARGV = qw(command_a --config t/nosuchfile.pl --global 1234);
     my $test01 = Test01->new_with_command;
     isa_ok($test01,'MooseX::App::Message::Envelope');
     like($test01->blocks->[0]->header,qr/Could not find/,'Error message set');

diff --git a/t/config.pl b/t/config.pl
@@ -0,0 +1,9 @@
+{
+    global      => {
+        global          => 123,
+    },
+    command_a   => {
+        global          => 234,
+        commanda_loca1  => 22,
+    },
+}
diff --git a/t/config.yml b/t/config.yml