C::D::G::Atom->and ought to handle only one atom

[perl/modules/CPANPLUS-Dist-Gentoo.git] / t / 31-atom-and.t

diff --git a/t/31-atom-and.t b/t/31-atom-and.t
index 6de1b3acaced228ccab3c3629d62905b8b8cdac9..9dcf18c975509b8057b8dd0a992709140028f28e 100644 (file)
--- a/t/31-atom-and.t
+++ b/t/31-atom-and.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 2 * ((8 * 7) / 2 + 2);
+use Test::More tests => 2 * (2 + (8 * 7) / 2 + 2);
 
 use CPANPLUS::Dist::Gentoo::Atom;
 
@@ -60,6 +60,9 @@ my $x_ver   = qr/Version mismatch/;
 my $x_range = qr/Incompatible ranges/;
 
 my @tests = (
+ [ [ $a0 ] => $a0 ],
+ [ [ $a1 ] => $a1 ],
+
  [ [ $a0, $a0 ] => $a0 ],
  [ [ $a0, $a1 ] => $a1 ],
  [ [ $a0, $a2 ] => $a2 ],