opt => '-f',
},
{
+ name => 'fish',
+ },
+ {
name => 'cmd.exe',
opt => '/Q /D /C',
ext => 'bat',
local $ENV{PATH} = $root;
local $ENV{PERL5LIB};
delete $ENV{PERL5LIB};
+ my $bin_path = local::lib->install_base_bin_path($ll_dir);
+ mkdir $bin_path;
my $env = call_ll($shell, "$ll");
is $env->{PERL_LOCAL_LIB_ROOT}, $ll_dir,
"$shell->{name}: activate root";
- is $env->{PATH}, local::lib->install_base_bin_path($ll_dir)."$sep$root",
+ like $env->{PATH}, qr/^\Q$bin_path$sep$root\E(?:$|\Q$sep\E)/,
"$shell->{name}: activate PATH";
is $env->{PERL5LIB}, local::lib->install_base_perl_path($ll_dir),
"$shell->{name}: activate PERL5LIB";
is $env->{PERL_LOCAL_LIB_ROOT}, undef,
"$shell->{name}: deactivate root";
- is $env->{PATH}, $root,
+ like $env->{PATH}, qr/^\Q$root\E(?:$|\Q$sep\E)/,
"$shell->{name}: deactivate PATH";
is $env->{PERL5LIB}, undef,
"$shell->{name}: deactivate PERL5LIB";