6 use Test::More tests => 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/;
63 [ [ $a0, $a0 ] => $a0 ],
64 [ [ $a0, $a1 ] => $a1 ],
65 [ [ $a0, $a2 ] => $a2 ],
66 [ [ $a0, $a3 ] => $a3 ],
67 [ [ $a0, $a4 ] => $a4 ],
68 [ [ $a0, $a5 ] => $a5 ],
69 [ [ $a0, $a6 ] => $a6 ],
71 [ [ $a1, $a1 ] => $a1 ],
72 [ [ $a1, $a2 ] => $x_ver ],
73 [ [ $a1, $a3 ] => $a1 ],
74 [ [ $a1, $a4 ] => $x_ver ],
75 [ [ $a1, $a5 ] => $x_ver ],
76 [ [ $a1, $a6 ] => $x_ver ],
78 [ [ $a2, $a2 ] => $a2 ],
79 [ [ $a2, $a3 ] => $a2 ],
80 [ [ $a2, $a4 ] => $x_ver ],
81 [ [ $a2, $a5 ] => $x_range ],
82 [ [ $a2, $a5 ] => $x_range ],
84 [ [ $a3, $a3 ] => $a3 ],
85 [ [ $a3, $a4 ] => $a4 ],
86 [ [ $a3, $a5 ] => $x_range ],
87 [ [ $a3, $a6 ] => $x_range ],
89 [ [ $a4, $a4 ] => $a4 ],
90 [ [ $a4, $a5 ] => $a4 ],
91 [ [ $a4, $a6 ] => $x_ver ],
93 [ [ $a5, $a5 ] => $a5 ],
94 [ [ $a5, $a6 ] => $a6 ],
96 [ [ $a6, $a6 ] => $a6 ],
98 [ [ ($a1) x 3 ] => $a1 ],
99 [ [ ($a2) x 4 ] => $a2 ],
103 my ($args, $exp) = @$t;
107 @a = reverse @a if $r;
109 my $desc = join ' AND ', map "'$_'", @a;
111 my $a = eval { A->and(@a) };
114 if (ref $exp eq 'Regexp') {
115 like $err, $exp, "$desc should fail";
117 cmp_ok $a, '==', $exp, "$desc == '$exp'";