Added tests

Author: iph0

t/01-accessors.t

@@ -2,16 +2,18 @@ use 5.008000;
 use strict;
 use warnings;
 
-use Test::More tests => 8;
+use Test::More tests => 12;
 use Config::Processor;
 
 my $CONFIG_PROCESSOR = Config::Processor->new();
 
 can_ok( $CONFIG_PROCESSOR, 'interpolate_variables' );
 can_ok( $CONFIG_PROCESSOR, 'process_directives' );
+can_ok( $CONFIG_PROCESSOR, 'export_env' );
 
 t_interpolate_variables($CONFIG_PROCESSOR);
 t_process_directives($CONFIG_PROCESSOR);
+t_export_env($CONFIG_PROCESSOR);
 
 
 sub t_interpolate_variables {
@@ -46,3 +48,18 @@ sub t_process_directives {
 
   return;
 }
+
+sub t_export_env {
+  my $config_processor = shift;
+
+  my $export_env = $config_processor->export_env;
+  is( $export_env, undef, 'get ENV exporting switch value' );
+
+  $config_processor->export_env(1);
+  is( $config_processor->export_env, 1, 'enable ENV exporting' );
+
+  $config_processor->export_env(undef);
+  is( $config_processor->export_env, undef, "disable directive processing" );
+
+  return;
+}

t/02-processing.t

@@ -2,7 +2,7 @@ use 5.008000;
 use strict;
 use warnings;
 
-use Test::More tests => 9;
+use Test::More tests => 10;
 use Config::Processor;
 
 my $CONFIG_PROCESSOR = Config::Processor->new(
@@ -14,15 +14,12 @@ can_ok( $CONFIG_PROCESSOR, 'load' );
 t_merging_yaml($CONFIG_PROCESSOR);
 t_merging_json($CONFIG_PROCESSOR);
 t_merging_mixed($CONFIG_PROCESSOR);
-
 t_variable_interpolation_on($CONFIG_PROCESSOR);
 t_variable_interpolation_off();
-
 t_directive_processing_on($CONFIG_PROCESSOR);
 t_directive_processing_off();
-
 t_complete_processing($CONFIG_PROCESSOR);
-
+t_env_exporting($CONFIG_PROCESSOR);
 
 sub t_merging_yaml {
   my $config_processor = shift;
@@ -1370,3 +1367,14 @@ sub t_complete_processing {
 
   return;
 }
+
+sub t_env_exporting {
+  my $config_processor = shift;
+
+  $config_processor->export_env(1);
+  my $t_config = $config_processor->load( qw( foo_A.yaml foo_B.yml ) );
+
+  ok( ref( $t_config->{ENV} ) eq 'HASH' , 'environment variables exporting' );
+
+  return;
+}