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
|
#!/usr/bin/env perl
use Test2::V0;
use FindBin;
use lib $FindBin::Bin;
use App::perlbrew;
require "test2_helpers.pl";
sub looks_like_perlbrew_home;
local $App::perlbrew::PERLBREW_HOME = '/perlbrew/home';
local $ENV{PERLBREW_HOME} = '/env/home';
local $ENV{HOME} = '/home';
subtest "App::perlbrew#home method" => sub {
subtest "it should return \$App::perlbrew::PERLBREW_HOME if provided" => sub {
my $app = App::perlbrew->new;
looks_like_perlbrew_home $app->home, '/perlbrew/home';
};
subtest "it should default to \$ENV{PERLBREW_HOME} if provided" => sub {
local $App::perlbrew::PERLBREW_HOME;
my $app = App::perlbrew->new;
looks_like_perlbrew_home $app->home, '/env/home';
};
subtest "it should default to \$ENV{HOME} subpath" => sub {
local $App::perlbrew::PERLBREW_HOME;
local $ENV{PERLBREW_HOME};
my $app = App::perlbrew->new;
looks_like_perlbrew_home $app->home, '/home/.perlbrew';
};
subtest "it should return the instance property of 'home' if set" => sub {
my $app = App::perlbrew->new;
$app->home("/fnord");
looks_like_perlbrew_home $app->home, "/fnord";
};
};
done_testing;
sub looks_like_perlbrew_home {
my ($got, $expected) = @_;
isa_ok $got, 'App::Perlbrew::Path';
is "$got", "$expected";
is "$got", "$App::perlbrew::PERLBREW_HOME";
}
|