package MockApp;
-use Test::More tests => 9;
-
+use Test::More tests => 10;
use Cwd;
-local %ENV;
+
+# 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';
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' );