Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

104 lines (84 sloc) 2.51 kB
#!/usr/bin/env perl
use strict;
use warnings;
BEGIN {
delete $ENV{PERLBREW_HOME};
delete $ENV{PERLBREW_ROOT};
delete $ENV{PERLBREW_LIB};
}
use FindBin;
use lib $FindBin::Bin;
use App::perlbrew;
require "test_helpers.pl";
use File::Temp qw( tempdir );
use File::Spec::Functions qw( catdir );
use File::Path::Tiny;
use Test::Spec;
use Test::Output qw(stdout_is stdout_from);
mock_perlbrew_install("perl-5.12.3");
mock_perlbrew_install("perl-5.12.4");
mock_perlbrew_install("perl-5.14.1");
mock_perlbrew_install("perl-5.14.2");
{
no warnings 'redefine';
sub App::perlbrew::current_perl { "perl-5.12.3" }
}
describe "list command," => sub {
describe "when there no libs under PERLBREW_HOME,", sub {
it "displays a list of perl installation names", sub {
my $app = App::perlbrew->new("list");
my $out = stdout_from { $app->run; };
## Remove paths to system perl from the list
$out =~ s/^[* ] \/.+$//mg;
$out =~ s/\n\n+/\n/;
is $out, <<"EOF";
* perl-5.12.3
perl-5.12.4
perl-5.14.1
perl-5.14.2
EOF
};
};
describe "when there are lib under PERLBREW_HOME,", sub {
before each => sub {
unless ( -d catdir($App::perlbrew::PERLBREW_HOME, "libs", 'perl-5.12.3@nobita') ) {
App::perlbrew->new("lib", "create", "nobita")->run;
}
unless ( -d catdir($App::perlbrew::PERLBREW_HOME, "libs", 'perl-5.12.3@shizuka') ) {
App::perlbrew->new("lib", "create", "shizuka")->run;
}
};
it "displays lib names" => sub {
my $app = App::perlbrew->new("list");
my $out = stdout_from { $app->run };
## Remove paths to system perl from the list
$out =~ s/^[* ] \/.+$//mg;
$out =~ s/\n\n+/\n/;
is $out, <<'OUT';
* perl-5.12.3
perl-5.12.3@nobita
perl-5.12.3@shizuka
perl-5.12.4
perl-5.14.1
perl-5.14.2
OUT
};
it "marks currently activated lib", sub {
$ENV{PERLBREW_LIB} = "nobita";
my $app = App::perlbrew->new("list");
my $out = stdout_from { $app->run };
## Remove paths to system perl from the list
$out =~ s/^[* ] \/.+$//mg;
$out =~ s/\n\n+/\n/;
is $out, <<'OUT';
perl-5.12.3
* perl-5.12.3@nobita
perl-5.12.3@shizuka
perl-5.12.4
perl-5.14.1
perl-5.14.2
OUT
};
};
};
runtests unless caller;
Jump to Line
Something went wrong with that request. Please try again.