Skip to content
Snippets Groups Projects
Verified Commit bdbc12f0 authored by Andreas Romeyke's avatar Andreas Romeyke
Browse files

- fixed ENV setting if called within Dist::Zilla

parent dbed2883
No related branches found
No related tags found
No related merge requests found
...@@ -4,10 +4,12 @@ use Test::Cmd; ...@@ -4,10 +4,12 @@ use Test::Cmd;
use Test::More tests =>6; use Test::More tests =>6;
use Test::TA; use Test::TA;
use Path::Tiny; use Path::Tiny;
$ENV{'TEST_ACTIVE'}=1;
delete $ENV{PERL_MM_USE_DEFAULT};
my $testapp = Test::TA::testapp(); my $testapp = Test::TA::testapp();
local $ENV{'HOME'} = $testapp->workpath(); if ( $ENV{_} !~ /dzil/) { # patch if not dzil
$ENV{'TEST_ACTIVE'} = 1;
delete $ENV{PERL_MM_USE_DEFAULT};
local $ENV{'HOME'} = $testapp->workpath();
}
my $config_dir = path($testapp->workpath())->child('.config'); my $config_dir = path($testapp->workpath())->child('.config');
$config_dir->mkpath(); $config_dir->mkpath();
my $config_file = $config_dir->child('ta-tool.rc'); my $config_file = $config_dir->child('ta-tool.rc');
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment