#!perl

use strict;
use warnings;
use version;

use Test::More;
use English qw(-no_match_vars);

use Pinto::PackageSpec;

#------------------------------------------------------------------------------
{

    my $spec = Pinto::PackageSpec->new('Foo~1.2');
    is $spec->name,    'Foo', 'Parsed package name from string';
    is $spec->version, '1.2', 'Parsed package version from string';
    is "$spec", 'Foo~1.2', 'Stringified PackageSpec object';

}

#------------------------------------------------------------------------------
{

    my $spec = Pinto::PackageSpec->new('Foo');
    is $spec->name,    'Foo', 'Parsed package name from string';
    is $spec->version, '0',   'Parsed package version from string without version';
    is "$spec", 'Foo~0', 'Stringified PackageSpec object';

}

#------------------------------------------------------------------------------
{

    my $spec = Pinto::PackageSpec->new( name => 'Foo', version => 1.2 );
    is $spec->name,    'Foo', 'Constructor with normal name attribute';
    is $spec->version, '1.2', 'Constructor with normal version version';
    is "$spec", 'Foo~1.2', 'Stringified PackageSpec object';

}

#------------------------------------------------------------------------------

{

    # Module::Build first introduced into core in perl 5.9.4
    # Module::Build was first upgraded to 0.038 in perl 5.13.11

    my $spec = Pinto::PackageSpec->new( name => 'Module::Build', version => 0.38 );
    is $spec->is_core( in => 'v5.6.1' ),  0, "$spec is not in perl 5.6.1";
    is $spec->is_core( in => 'v5.10.1' ), 0, "$spec is not in perl 5.10.1";
    is $spec->is_core( in => 'v5.14.2' ), 1, "$spec is in perl 5.14.2";

    local $] = 5.013011;
    is $spec->is_core, 1, "$spec is in *this* perl, pretending we are $]"

}

#------------------------------------------------------------------------------

done_testing;