1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
use lib 't/lib';
use Test2::V0 -no_srand => 1;
use Shell::Config::Generate;
use TestLib;
tempdir();
foreach my $sep (undef, ':', ';', '|')
{
subtest "sep = " . ($sep||'undef') => sub {
my $config = eval { Shell::Config::Generate->new };
isa_ok $config, 'Shell::Config::Generate';
SKIP: {
skip "using default path sep", 1 unless defined $sep;
eval { $config->set_path_sep($sep) };
is $@, '', 'set_path_sep';
};
my $path_sep_regex = defined $sep ? quotemeta $sep : ';|:';
$ENV{FOO_PATH1} = 'bar' . (${sep}||':') . 'baz';
my $ret = eval { $config->prepend_path( FOO_PATH1 => 'foo' ) };
diag $@ if $@;
isa_ok $ret, 'Shell::Config::Generate';
delete $ENV{FOO_PATH2};
$config->prepend_path( FOO_PATH2 => qw( foo bar baz ) );
foreach my $shell (qw( tcsh csh bsd-csh bash sh zsh cmd.exe command.com ksh 44bsd-csh jsh powershell.exe pwsh fish ))
{
subtest $shell => sub {
my $shell_path = find_shell($shell);
skip_all "no $shell found" unless defined $shell_path;
skip_all "| not supported for cmd.exe or command.com"
if ($sep||'') eq '|' && $shell =~ /^(command.com|cmd.exe)$/;
skip_all "bad fish"
if $shell eq 'fish'
&& bad_fish($shell_path);
my $env = get_env($config, $shell, $shell_path);
return unless defined $env;
is [split /$path_sep_regex/, $env->{FOO_PATH1}], [qw( foo bar baz )], "[$shell] FOO_PATH1 = foo bar baz";
is [split /$path_sep_regex/, $env->{FOO_PATH2}], [qw( foo bar baz )], "[$shell] FOO_PATH2 = foo bar baz";
}
}
}
}
done_testing;
|
