X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F31-atom-and.t;h=7aec331fd07544cc7b89e12fd3c54cecb6a42620;hb=35149e33a2602cd5497670d5c6bb1ae33094ed9b;hp=6de1b3acaced228ccab3c3629d62905b8b8cdac9;hpb=5a5575483b3f3ae59a3895e1a571edd687becec0;p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git

diff --git a/t/31-atom-and.t b/t/31-atom-and.t
index 6de1b3a..7aec331 100644
--- 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 ],