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
|
use strict;
use warnings;
use Test::Tester;
use Test::More tests => 10;
use Test::MinimumVersion;
minimum_version_ok('t/eg/bin/5.6-warnings.pl', '5.006');
check_test(
sub {
minimum_version_ok('t/eg/bin/5.6-warnings.pl', '5.006');
},
{
ok => 1,
name => 't/eg/bin/5.6-warnings.pl',
diag => '',
},
"successful comparison"
);
chdir "t/eg";
subtest "versions from meta" => sub {
my $vy = Test::MinimumVersion::__version_from_meta('META.yml');
is($vy, '5.021', "version from YAML");
my $vj = Test::MinimumVersion::__version_from_meta('META.json');
is($vj, '5.012', "version from JSON");
};
subtest "skip files" => sub {
all_minimum_version_ok(
'5.006',
{ no_test => 1, skip => [ 'bin/explicit-5.8.pl' ] },
);
};
|
