Changeset 22928 for lang/perl/Config-Multi

Timestamp:

11/07/08 15:56:01 (5 years ago)

Author:

vkgtaro

Message:

Config::Any::YAML->is_supported を調べてから走るように変更

Location:

lang/perl/Config-Multi/trunk/t

Files:

• 01-loadling.t (modified) (2 diffs)
• 02-overwrite.t (modified) (2 diffs)
• 03-multi.t (modified) (2 diffs)
• 04-env.t (modified) (2 diffs)
• 05-no-prefix.t (modified) (2 diffs)
• 06-extension.t (modified) (2 diffs)
• 07-unicode-option.t (modified) (3 diffs)

lang/perl/Config-Multi/trunk/t/01-loadling.t

@@ -1 +1 @@
 use Test::Base;
+use Config::Any::YAML;
 use Config::Multi;
 use FindBin;
@@ -6 +7 @@
 use Data::Dumper;
 
-plan tests => 1 * blocks ;
+if ( !Config::Any::YAML->is_supported ) {
+    plan skip_all => 'YAML format not supported';
+}
+else {
+    plan tests => 1 * blocks;
+}
 
 my $dir = File::Spec->catfile( $FindBin::Bin , 'conf' );

lang/perl/Config-Multi/trunk/t/02-overwrite.t

@@ -1 +1 @@
 use Test::Base;
+use Config::Any::YAML;
 use Config::Multi;
 use FindBin;
@@ -6 +7 @@
 use Data::Dumper;
 
-plan tests => 3 * blocks ;
+if ( !Config::Any::YAML->is_supported ) {
+    plan skip_all => 'YAML format not supported';
+}
+else {
+    plan tests => 3 * blocks ;
+}
 
 my $dir = File::Spec->catfile( $FindBin::Bin , 'conf' );

lang/perl/Config-Multi/trunk/t/03-multi.t

@@ -1 +1 @@
 use Test::Base;
+use Config::Any::YAML;
 use Config::Multi;
 use FindBin;
@@ -6 +7 @@
 use Data::Dumper;
 
-plan tests => 3 * blocks ;
+if ( !Config::Any::YAML->is_supported ) {
+    plan skip_all => 'YAML format not supported';
+}
+else {
+    plan tests => 3 * blocks ;
+}
 
 my $dir = File::Spec->catfile( $FindBin::Bin , 'conf' );

lang/perl/Config-Multi/trunk/t/04-env.t

@@ -1 +1 @@
 use Test::Base;
+use Config::Any::YAML;
 use Config::Multi;
 use FindBin;
@@ -6 +7 @@
 use Data::Dumper;
 
-plan tests => 1 * blocks ;
+if ( !Config::Any::YAML->is_supported ) {
+    plan skip_all => 'YAML format not supported';
+}
+else {
+    plan tests => 1 * blocks ;
+}
 
 my $dir = File::Spec->catfile( $FindBin::Bin , 'conf' );

lang/perl/Config-Multi/trunk/t/05-no-prefix.t

@@ -1 +1 @@
 use Test::Base;
+use Config::Any::YAML;
 use Config::Multi;
 use FindBin;
@@ -6 +7 @@
 use Data::Dumper;
 
-plan tests => 1 * blocks ;
+if ( !Config::Any::YAML->is_supported ) {
+    plan skip_all => 'YAML format not supported';
+}
+else {
+    plan tests => 1 * blocks ;
+}
 
 my $dir = File::Spec->catfile( $FindBin::Bin , 'conf' );

lang/perl/Config-Multi/trunk/t/06-extension.t

@@ -1 +1 @@
 use Test::Base;
+use Config::Any::YAML;
 use Config::Multi;
 use FindBin;
@@ -6 +7 @@
 use Data::Dumper;
 
-plan tests => 1 * blocks ;
+if ( !Config::Any::YAML->is_supported ) {
+    plan skip_all => 'YAML format not supported';
+}
+else {
+    plan tests => 1 * blocks ;
+}
 
 my $dir = File::Spec->catfile( $FindBin::Bin , 'conf' );

lang/perl/Config-Multi/trunk/t/07-unicode-option.t

@@ -1 +1 @@
 use Test::Base;
+use Config::Any::YAML;
 use Config::Multi;
 use FindBin;
@@ -7 +8 @@
 use Data::Dumper;
 
-plan tests => 1 * blocks ;
+if ( !Config::Any::YAML->is_supported ) {
+    plan skip_all => 'YAML format not supported';
+}
+else {
+    plan tests => 1 * blocks;
+}
 
 my $dir = File::Spec->catfile( $FindBin::Bin , 'conf' );
@@ -21 +27 @@
 __END__
 === test
---- expected yaml
-hoge: ほげ
-foo:
-  bar: ばー
-fuga: ふが
+--- expected eval
+{
+    hoge => 'ほげ',
+    foo  => {
+        bar => 'ばー',
+    },
+    fuga => 'ふが',
+}