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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
use strict;
use warnings;
use Test::More;
use Test::Needs ();
my @try = (
[ '5' => '5.000000' ],
[ 'v5' => '5.000000' ],
[ '"5"' => '5.000000' ],
[ '"v5"' => '5.000000' ],
[ '5.008000' => '5.008000' ],
[ '5.8.0' => '5.008000' ],
[ 'v5.8.0' => '5.008000' ],
[ '"5.8.0"' => '5.008000' ],
[ '"v5.8.0"' => '5.008000' ],
[ '5.010' => '5.010000' ],
[ 'v5.10' => '5.010000' ],
[ '"v5.10"' => '5.010000' ],
[ '5.999000' => '5.999000' ],
[ '5.999.0' => '5.999000' ],
[ 'v5.999.0' => '5.999000' ],
[ '"5.999.0"' => '5.999000' ],
[ '"v5.999.0"' => '5.999000' ],
[ '6' => '6.000000' ],
[ 'v6' => '6.000000' ],
[ '"6"' => '6.000000' ],
[ '"v6"' => '6.000000' ],
[ '6.999000' => '6.999000' ],
[ '6.999.0' => '6.999000' ],
[ 'v6.999.0' => '6.999000' ],
[ '"6.999.0"' => '6.999000' ],
[ '"v6.999.0"' => '6.999000' ],
[ '7' => '7.000000' ],
[ 'v7' => '7.000000' ],
[ '"7"' => '7.000000' ],
[ '"v7"' => '7.000000' ],
[ '7.999000' => '7.999000' ],
[ '7.999.0' => '7.999000' ],
[ 'v7.999.0' => '7.999000' ],
[ '"7.999.0"' => '7.999000' ],
[ '"v7.999.0"' => '7.999000' ],
);
plan tests => 1 + scalar @try;
my @warnings;
local $SIG{__WARN__} = sub { push @warnings, @_; warn @_ };
for (@try) {
my ($in, $want) = @$_;
SKIP: {
my $evaled = eval $in;
skip "$in is unsupported syntax on perl $]", 1
if $@;
my $got = Test::Needs::_numify_version($evaled);
is $got, $want, sprintf "%10s parses correctly as %s", $in, $want;
}
}
is scalar @warnings, 0, "no warnings";
|
