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
|
use strict;
use warnings;
use Test::More 0.98;
BEGIN {
plan skip_all => "AUTHOR_TESTING is required." unless $ENV{AUTHOR_TESTING};
}
use File::Which;
use File::Temp qw(tempdir);
plan skip_all => "No cpanm" unless which('cpanm');
local $ENV{PERL_CPANM_OPT} = '--no-man-pages --no-prompt --no-interactive';
local $ENV{RELEASE_TESTING};
local $ENV{AUTHOR_TESTING};
my $tmp = tempdir(CLEANUP => 1);
is(system("cpanm --notest -l $tmp ."), 0);
for (qw(Plack POSIX::getpeername Starman Dancer2)) {
is(system("cpanm -l $tmp --reinstall $_"), 0, $_);
}
done_testing;
|
