#!/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';
}