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
|
#!/usr/bin/env perl
use Test2::V0;
use FindBin;
use lib $FindBin::Bin;
use App::perlbrew;
require 'test2_helpers.pl';
use Capture::Tiny qw( capture_stderr );
use File::Which qw( which );
note "PERLBREW_ROOT set to $ENV{PERLBREW_ROOT}";
subtest "Works without error output on bash where hashing is off", sub {
my $bash = which("bash");
if (!defined($bash)) {
skip_all "Bash executable not found, skipping this test.";
return;
}
my $app = App::perlbrew->new('self-install');
$app->current_shell("bash");
$app->run;
my $ret;
my $out = capture_stderr {
my $bash_init = file($ENV{PERLBREW_ROOT}, "etc", "bashrc");
system("ls $ENV{PERLBREW_ROOT}/etc/bashrc");
$ret = system($bash, "+h", "-c", "source $bash_init");
};
is($out, "", "No error messages in output");
is($ret, 0, "Return value proper");
};
done_testing;
|
