Fix wrong expected value in t/31-atom-and.t

[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..7aec331fd07544cc7b89e12fd3c54cecb6a42620 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 ],
@@ -82,7 +85,7 @@ my @tests = (
  [ [ $a2, $a5 ] => $x_range ],
 
  [ [ $a3, $a3 ] => $a3 ],
- [ [ $a3, $a4 ] => $a4 ],
+ [ [ $a3, $a4 ] => $x_ver ],
  [ [ $a3, $a5 ] => $x_range ],
  [ [ $a3, $a6 ] => $x_range ],