Test comparing an atom to an atom string

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

diff --git a/t/31-atom-cmp.t b/t/31-atom-cmp.t
index 577047114f5dc17976f143c3e2f62a87f6e74802..82623d71f909841b6d9f1fb37c57d61b941843fc 100644 (file)
--- a/t/31-atom-cmp.t
+++ b/t/31-atom-cmp.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 4 * ((8 * 7) / 2);
+use Test::More tests => 6 * ((8 * 7) / 2);
 
 use CPANPLUS::Dist::Gentoo::Atom;
 
@@ -120,6 +120,7 @@ for my $t (@tests) {
   }
 
   compare_ok($a, '<=>', $b, $exp);
+  compare_ok($a, '<=>', "$b", $exp);
   compare_ok($a, 'cmp', $b, $exp);
  }
 }