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
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More 0.47;
#use version;
use Perl::MinimumVersion;
my @examples=(
[ q{$a->$*;} => '5.020' ],
[ q{$a->@*;} => '5.020' ],
[ q{$a->%*;} => '5.020' ],
[ q{$a->&*;} => '5.020' ],
[ q{$a->**;} => '5.020' ],
[ q{$a->$#*;} => '5.020' ],
[ q{$a->@[1..3];} => '5.020' ],
[ q{$a->@{ qw{ foo bar } }} => '5.020' ],
[ q{$a->%[1..3];} => '5.020' ],
[ q{$a->%{ qw{ foo bar } }} => '5.020' ],
);
plan tests => scalar @examples;
foreach my $info ( @examples ) {
my ( $example, $version ) = @{ $info };
my $p = Perl::MinimumVersion->new(\$example);
my $v = $p->minimum_version;
is( $v, $version, $example )
or do { diag "\$\@: $@" if $@ };
}
|
