Test C::D::G::Atom->{new,new_from_ebuild}

[perl/modules/CPANPLUS-Dist-Gentoo.git] / t / 32-atom-and.t

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 7aec331fd07544cc7b89e12fd3c54cecb6a42620..36819abd84576d62fd5c5b357c5a73a33a4cb682 100644 (file)
--- 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'";
   }