use strict;

use warnings;

use CPAN::Meta::Requirements;

use version;

use Test::More 0.88;

my @cases = (

    [ "2-part literal v-string" => v1.2 => "v1.2.0" ],

    [ "1-part literal v-string" => v1 => "v1.0.0" ],

    [ "1-part literal v-string (0)" => v0 => "v0.0.0" ],

);

for my $c (@cases) {

    my ($label, $input, $expect) = @$c;

    my $req = CPAN::Meta::Requirements->new();

    $req->add_minimum('Foo::Baz' => $input );

    is( $req->requirements_for_module('Foo::Baz'), $expect, $label );

}

done_testing;