remove unnecessary Path::Class dep from test

[catagits/Catalyst-Plugin-ConfigLoader.git] / t / 21-mock_load_env.t

diff --git a/t/21-mock_load_env.t b/t/21-mock_load_env.t
index f5fd60a..ad0dd2a 100644 (file)
--- a/t/21-mock_load_env.t
+++ b/t/21-mock_load_env.t
@@ -1,15 +1,20 @@
 package MockApp;
 
-use Test::More tests => 9;
-
+use Test::More tests => 10;
 use Cwd;
-$ENV{ CATALYST_HOME } = cwd . '/t/mockapp';
+
+# Remove all relevant env variables to avoid accidental fail
+foreach my $name ( grep { m{^(CATALYST|MOCKAPP)} } keys %ENV ) {
+    delete $ENV{ $name };
+}
+
+$ENV{ CATALYST_HOME }  = cwd . '/t/mockapp';
 $ENV{ MOCKAPP_CONFIG } = $ENV{ CATALYST_HOME } . '/mockapp.pl';
 
 use_ok( 'Catalyst', qw( ConfigLoader ) );
 
 __PACKAGE__->config->{ 'Plugin::ConfigLoader' }->{ substitutions } = {
-    foo => sub { shift; join('-', @_); }
+    foo => sub { shift; join( '-', @_ ); }
 };
 
 __PACKAGE__->setup;
@@ -17,8 +22,9 @@ __PACKAGE__->setup;
 ok( __PACKAGE__->config );
 is( __PACKAGE__->config->{ 'Controller::Foo' }->{ foo }, 'bar' );
 is( __PACKAGE__->config->{ 'Controller::Foo' }->{ new }, 'key' );
-is( __PACKAGE__->config->{ 'Model::Baz' }->{ qux }, 'xyzzy' );
-is( __PACKAGE__->config->{ 'Model::Baz' }->{ another }, 'new key' );
-is( __PACKAGE__->config->{ 'view' }, 'View::TT::New' );
-is( __PACKAGE__->config->{ 'foo_sub' }, 'x-y' );
-is( __PACKAGE__->config->{ 'literal_macro' }, '__DATA__' );
+is( __PACKAGE__->config->{ 'Model::Baz' }->{ qux },      'xyzzy' );
+is( __PACKAGE__->config->{ 'Model::Baz' }->{ another },  'new key' );
+is( __PACKAGE__->config->{ 'view' },                     'View::TT::New' );
+is( __PACKAGE__->config->{ 'foo_sub' },                  'x-y' );
+is( __PACKAGE__->config->{ 'literal_macro' },            '__DATA__' );
+is( __PACKAGE__->config->{ 'environment_macro' },        $ENV{ CATALYST_HOME }.'/mockapp.pl' );