X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git;a=blobdiff_plain;f=t%2F32-atom-and.t;h=22ceb814003cd23489f2d734a6c9eac28951d16e;hp=36819abd84576d62fd5c5b357c5a73a33a4cb682;hb=8702e4c0231384658add45cb4660c31c4d9bf1a8;hpb=1060eda531a4dc79b1b0258f5478a891c5d950c9

diff --git a/t/32-atom-and.t b/t/32-atom-and.t
index 36819ab..22ceb81 100644
--- a/t/32-atom-and.t
+++ b/t/32-atom-and.t
@@ -119,7 +119,7 @@ for my $t (@tests) {
   } elsif ($err) {
    fail "$desc failed but shouldn't: $err";
   } else {
-   cmp_ok $a, '==', $exp, "$desc == '$exp'";
+   ok +($a == $exp), "$desc == '$exp'";
   }
  }
 }