use strict;
use warnings;
-use Test::More tests => 2 * 5 * ((8 * 7) / 2);
+use Test::More tests => 2 * 8 * ((8 * 7) / 2);
use CPANPLUS::Dist::Gentoo::Atom;
my $bs = "$b";
compare_ok($a, '<=>', $bs, $exp);
- if (my $bv = $b->version) {
+ my $bv = $b->version;
+ if (defined $bv) {
compare_ok($a, '<=>', $bv, $exp);
compare_ok($a, '<=>', "$bv", $exp);
} else {
}
compare_ok($a, 'cmp', $b, $exp);
+
+ my $bz = $b->qualified_name;
+ $bz .= "-$bv" if defined $bv;
+ compare_ok($a, 'cmp', $bz, $exp);
+
+ $bz = "test/zzz";
+ $bz .= "-$bv" if defined $bv;
+ compare_ok($a, 'cmp', $bz, -1);
+ compare_ok($bz, 'cmp', $b, 1);
}
}