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
|
#!perl
use Test2::V0;
use App::perlbrew;
use File::Temp qw( tempdir );
$App::perlbrew::PERLBREW_ROOT = tempdir( CLEANUP => 1 );
$App::perlbrew::PERLBREW_HOME = tempdir( CLEANUP => 1 );
$ENV{PERLBREW_ROOT} = $App::perlbrew::PERLBREW_ROOT;
subtest 'parse "perl-5.18.2"' => sub {
my $app = App::perlbrew->new();
my $rd = $app->release_detail("perl-5.18.2");
ok defined( $rd->{type} );
ok defined( $rd->{version} );
ok defined( $rd->{tarball_url} );
ok defined( $rd->{tarball_name} );
is $rd->{type}, "perl";
is $rd->{version}, "5.18.2";
};
subtest 'parse "5.18.2"' => sub {
my $app = App::perlbrew->new();
my $rd = $app->release_detail("5.18.2");
ok defined( $rd->{type} );
ok defined( $rd->{version} );
ok defined( $rd->{tarball_url} );
ok defined( $rd->{tarball_name} );
is $rd->{type}, "perl";
is $rd->{version}, "5.18.2";
};
done_testing;
|
