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
|
#!/usr/bin/env perl
use Test2::V0;
use Test2::Tools::Spec;
use FindBin;
use lib $FindBin::Bin;
use App::perlbrew;
require "test2_helpers.pl";
mock_perlbrew_install("perl-5.14.1");
describe "list_modules method," => sub {
before_each 'override' => sub {
delete $ENV{PERL_MB_OPT};
delete $ENV{PERL_MM_OPT};
delete $ENV{PERL_LOCAL_LIB_ROOT};
delete $ENV{PERLBREW_LIB};
delete $ENV{PERL5LIB};
no warnings;
sub App::perlbrew::run_command_exec {
my ($self, @args) = @_;
if (grep { $_ eq '-MExtUtils::Installed' } @args) {
print "Foo\n";
} else {
die "Unexpected `exec`";
}
return $self;
}
};
describe "when run successfully", sub {
it "should return an arryref of module names ", sub {
my $app = App::perlbrew->new();
$app->current_perl("perl-5.14.1");
my $modules = $app->list_modules();
is 0+@$modules, 1;
is $modules->[0], "Foo";
};
};
};
done_testing;
|
