CPANPLUS-Dist-Gentoo

 view release on metacpan or  search on metacpan

t/20-version.t  view on Meta::CPAN

#!perl -T

use strict;
use warnings;

use Test::More tests => 3 + (2 + 2 * 3) * (69 + 4 * 7);

use CPANPLUS::Dist::Gentoo::Version;

sub V () { 'CPANPLUS::Dist::Gentoo::Version' }

eval { V->new() };
like $@, qr/You\s+must\s+specify\s+a\s+version\s+string/, "V->(undef)";

eval { V->new('dongs') };
like $@, qr/Couldn't\s+parse\s+version\s+string/, "V->('dongs')";

eval { my $res = 'dongs' < V->new(1) };
like $@, qr/Couldn't\s+parse\s+version\s+string/, "'dongs' < V->new(1)";

t/30-atom-new.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use Test::More tests => 25;

use CPANPLUS::Dist::Gentoo::Atom;

sub A () { 'CPANPLUS::Dist::Gentoo::Atom' }

my $no_info        = qr/^Not enough information/;
my $no_category    = qr/^Category unspecified/;
my $range_no_ver   = qr/^Range atoms require a valid version/;
my $cant_parse_ver = qr/^Couldn't parse version string/;

sub inv { qr/^Invalid \Q$_[0]\E/ }

my $a0 = { category => 'test',  name => 'a' };
my $a1 = { category => 'test',  name => 'a',   version => '1.0' };

t/31-atom-cmp.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use Test::More tests => 2 * 8 * ((8 * 7) / 2);

use CPANPLUS::Dist::Gentoo::Atom;

sub A () { 'CPANPLUS::Dist::Gentoo::Atom' }

my $a0 = A->new(
 category => 'test',
 name     => 'a',
);

my $a1 = A->new(
 category => 'test',
 name     => 'a',
 version  => '1.0',

t/32-atom-and.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use Test::More tests => 2 * (2 + (8 * 7) / 2 + 2) + 3 * 4;

use CPANPLUS::Dist::Gentoo::Atom;

sub A () { 'CPANPLUS::Dist::Gentoo::Atom' }

my $a0 = A->new(
 category => 'test',
 name     => 'a',
);

my $a1 = A->new(
 category => 'test',
 name     => 'a',
 version  => '1.0',