6 use Test::More tests => 6 * ((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 fail "$desc failed but shouldn't: $err";
109 is $c, $exp, "$desc == '$exp'";
114 my ($a, $b, $exp) = @$t;
122 compare_ok($a, '<=>', $b, $exp);
123 compare_ok($a, '<=>', "$b", $exp);
124 compare_ok($a, 'cmp', $b, $exp);