6 use Test::More tests => 2 * (2 + (8 * 7) / 2 + 2);
8 use CPANPLUS::Dist::Gentoo::Atom;
10 sub A () { 'CPANPLUS::Dist::Gentoo::Atom' }
59 my $x_ver = qr/Version mismatch/;
60 my $x_range = qr/Incompatible ranges/;
66 [ [ $a0, $a0 ] => $a0 ],
67 [ [ $a0, $a1 ] => $a1 ],
68 [ [ $a0, $a2 ] => $a2 ],
69 [ [ $a0, $a3 ] => $a3 ],
70 [ [ $a0, $a4 ] => $a4 ],
71 [ [ $a0, $a5 ] => $a5 ],
72 [ [ $a0, $a6 ] => $a6 ],
74 [ [ $a1, $a1 ] => $a1 ],
75 [ [ $a1, $a2 ] => $x_ver ],
76 [ [ $a1, $a3 ] => $a1 ],
77 [ [ $a1, $a4 ] => $x_ver ],
78 [ [ $a1, $a5 ] => $x_ver ],
79 [ [ $a1, $a6 ] => $x_ver ],
81 [ [ $a2, $a2 ] => $a2 ],
82 [ [ $a2, $a3 ] => $a2 ],
83 [ [ $a2, $a4 ] => $x_ver ],
84 [ [ $a2, $a5 ] => $x_range ],
85 [ [ $a2, $a5 ] => $x_range ],
87 [ [ $a3, $a3 ] => $a3 ],
88 [ [ $a3, $a4 ] => $x_ver ],
89 [ [ $a3, $a5 ] => $x_range ],
90 [ [ $a3, $a6 ] => $x_range ],
92 [ [ $a4, $a4 ] => $a4 ],
93 [ [ $a4, $a5 ] => $a4 ],
94 [ [ $a4, $a6 ] => $x_ver ],
96 [ [ $a5, $a5 ] => $a5 ],
97 [ [ $a5, $a6 ] => $a6 ],
99 [ [ $a6, $a6 ] => $a6 ],
101 [ [ ($a1) x 3 ] => $a1 ],
102 [ [ ($a2) x 4 ] => $a2 ],
106 my ($args, $exp) = @$t;
110 @a = reverse @a if $r;
112 my $desc = join ' AND ', map "'$_'", @a;
114 my $a = eval { A->and(@a) };
117 if (ref $exp eq 'Regexp') {
118 like $err, $exp, "$desc should fail";
120 fail "$desc failed but shouldn't: $err";
122 ok +($a == $exp), "$desc == '$exp'";