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
|
#!/usr/bin/perl
use strict;
use warnings;
use Perl::Version;
use Test::More tests => 6;
SKIP: {
skip 'cannot test bare v-strings with Perl < 5.8.1', 6
if $] < 5.008_001;
my $ver = eval { Perl::Version->new( v1.2.3 ) };
unless ( ok !$@, 'vstring parses without error' ) {
diag( "Error: $@\n" );
}
is $ver, 'v1.2.3', 'vstring parses correctly';
$ver = eval { Perl::Version->new( 1.2.3 ) };
unless ( ok !$@, 'naked vstring parses without error' ) {
diag( "Error: $@\n" );
}
is $ver, 'v1.2.3', 'naked vstring parses correctly';
$ver = eval { Perl::Version->new( 49.50.51 ) };
unless ( ok !$@, 'naked vstring, ascii digits parses without error' )
{
diag( "Error: $@\n" );
}
is $ver, 'v49.50.51', 'naked vstring, ascii digits parses correctly';
}
|
