Help language development. Donate to The Perl Foundation

zef cpan:UGEXE last updated on 2017-05-22

t/identity.t
use v6;
use Test;
plan 8;

use Zef::Identity;


subtest {
    subtest {
        my $ident = Zef::Identity.new("github:ugexe:Net--HTTP:1.0");

        is $ident.auth,    'github:ugexe';
        is $ident.name,    'Net::HTTP';
        is $ident.version, '1.0';
    }, 'github:ugexe:Net--HTTP:1.0';

    subtest {
        my $ident = Zef::Identity.new("github:ugexe:Net--HTTP:*");

        is $ident.auth,    'github:ugexe';
        is $ident.name,    'Net::HTTP';
        is $ident.version, '*';
    }, 'github:ugexe:Net-HTTP:*';

    subtest {
        my $ident = Zef::Identity.new("github:ugexe:Net--HTTP:1.0+");

        is $ident.auth,    'github:ugexe';
        is $ident.name,    'Net::HTTP';
        is $ident.version, '1.0+';
    }, 'github:ugexe:Net-HTTP:1.0+';
}, 'Distribution URN';


subtest {
    my @variations = (
        "Net::HTTP:ver<1.0>:auth<github:ugexe>",
        "Net::HTTP:ver('1.0'):auth<github:ugexe>",
        "Net::HTTP:ver('1.0'):auth('github:ugexe')",
        'Net::HTTP:ver("1.0"):auth("github:ugexe")',
        "Net::HTTP:auth<github:ugexe>:ver(v1.0):api<>",
        "Net::HTTP:ver(v1.0):api<>:auth<github:ugexe>";
    );

    for @variations -> $identity {
        my $ident = Zef::Identity.new("Net::HTTP:ver<1.0>:auth<github:ugexe>");

        is $ident.auth,    'github:ugexe';
        is $ident.name,    'Net::HTTP';
        is $ident.version, '1.0';
    }
}, 'Require spec - exact';


subtest {
    my @variations = (
        "Net::HTTP:ver<*>:auth<github:ugexe>",
        "Net::HTTP:ver('*'):auth<github:ugexe>",
        "Net::HTTP:ver('*'):auth('github:ugexe')",
        'Net::HTTP:ver("*"):auth("github:ugexe")',
    );

    for @variations -> $identity {
        my $ident = Zef::Identity.new("Net::HTTP:ver<*>:auth<github:ugexe>");

        is $ident.auth,    'github:ugexe';
        is $ident.name,    'Net::HTTP';
        is $ident.version, '*';
    }
}, 'Require spec - range *';


subtest {
    my @variations = (
        "Net::HTTP:ver<1.0+>:auth<github:ugexe>",
        "Net::HTTP:ver('1.0+'):auth<github:ugexe>",
        "Net::HTTP:ver('1.0+'):auth('github:ugexe')",
        'Net::HTTP:ver("1.0+"):auth("github:ugexe")',
        "Net::HTTP:auth<github:ugexe>:ver(v1.0+):api<>",
        "Net::HTTP:ver(v1.0+):api<>:auth<github:ugexe>";
    );

    for @variations -> $identity {
        my $ident = Zef::Identity.new("Net::HTTP:ver<1.0+>:auth<github:ugexe>");

        is $ident.auth,    'github:ugexe';
        is $ident.name,    'Net::HTTP';
        is $ident.version, '1.0+';
    }
}, 'Require spec - range +';


subtest {
    my $require = "Net::HTTP:ver<1.0+>:auth<github:ugexe>";
    my $urn     = "github:ugexe:Net--HTTP:1.0+";

    ok ?Zef::Identity("***not valid***");

    my $i-require = Zef::Identity.new($require);
    my $i-urn     = Zef::Identity.new($urn);

    ok $i-require.hash eqv $i-urn.hash;
    is $i-require.urn, $i-urn.urn;
    is $i-require.identity, $i-urn.identity;
}, 'methods';


subtest {
    ok ?str2identity("***not valid***");

    subtest {
        my $expected  = "Net::HTTP:ver('1.0+'):auth('github:ugexe')";
        my $require   = "Net::HTTP:ver<1.0+>:auth<github:ugexe>";
        my $urn       = "github:ugexe:Net--HTTP:1.0+";
        my $i-require = str2identity($require);
        my $i-urn     = str2identity($urn);

        is $i-require, $expected;
        is $i-require, $i-urn;
    }, 'exact';

    subtest {
        my $require = "Net::HTTP";
        my $i-require = str2identity($require);

        is $i-require, 'Net::HTTP';
    }, 'not exact';

    subtest {
        my $require = "HTTP";
        my $i-require = str2identity($require);

        is $i-require, 'HTTP';
    }, 'root namespace';
}, 'str2identity';


subtest {
    my $require = "Net::HTTP:ver<1.0+>:auth<github:ugexe>";
    my $urn     = "github:ugexe:Net--HTTP:1.0+";
    my %hash    = %( :name<Net::HTTP>, :ver<1.0+>, :auth<github:ugexe> );
    ok ?identity2hash("***not valid***");

    my %i-require = identity2hash($require);
    my %i-urn     = identity2hash($urn);

    is %i-require<name>, 'Net::HTTP';
    is %i-require<ver>,  '1.0+';
    is %i-require<auth>, 'github:ugexe';
    ok %i-require eqv %i-urn;
}, 'identity2hash';


subtest {
    my $require = "Net::HTTP:ver<1.0+>:auth<github:ugexe>";
    my %hash    = %( :name<Net::HTTP>, :ver<1.0+>, :auth<github:ugexe> );
    ok ?hash2identity("***not valid***");

    my $i-require = hash2identity(%hash);

    is $i-require, "Net::HTTP:ver('1.0+'):auth('github:ugexe')";
}, 'hash2identity';