6 use Test::More tests => 4 * ((8 * 7) / 2);
8 use CPANPLUS::Dist::Gentoo::Atom;
10 sub A () { 'CPANPLUS::Dist::Gentoo::Atom' }
97 my ($a, $cmp, $b, $exp) = @_;
99 my $desc = join " $cmp ", map "'$_'", $a, $b;
101 my $c = eval "\$a $cmp \$b";
104 if (ref $exp eq 'Regexp') {
105 like $err, $exp, "$desc should fail";
107 is $c, $exp, "$desc == '$exp'";
112 my ($a, $b, $exp) = @$t;
120 compare_ok($a, '<=>', $b, $exp);
121 compare_ok($a, 'cmp', $b, $exp);