X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F32-atom-and.t;fp=t%2F31-atom-and.t;h=36819abd84576d62fd5c5b357c5a73a33a4cb682;hb=9e50d0a5cd63e13e194009d6fbdedb75e75eaa5e;hp=7aec331fd07544cc7b89e12fd3c54cecb6a42620;hpb=1c1a8d6482b5d4baac0e7aa58c6bf1ceb380c8b9;p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git

diff --git a/t/31-atom-and.t b/t/32-atom-and.t
similarity index 97%
rename from t/31-atom-and.t
rename to t/32-atom-and.t
index 7aec331..36819ab 100644
--- a/t/31-atom-and.t
+++ b/t/32-atom-and.t
@@ -116,6 +116,8 @@ for my $t (@tests) {
 
   if (ref $exp eq 'Regexp') {
    like $err, $exp, "$desc should fail";
+  } elsif ($err) {
+   fail "$desc failed but shouldn't: $err";
   } else {
    cmp_ok $a, '==', $exp, "$desc == '$exp'";
   }