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

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

diff --git a/t/30-atom-cmp.t b/t/31-atom-cmp.t
similarity index 96%
rename from t/30-atom-cmp.t
rename to t/31-atom-cmp.t
index 1bb1bfb5e5c5fdcef56d98950cbcc05333f2153c..577047114f5dc17976f143c3e2f62a87f6e74802 100644 (file)
--- a/t/30-atom-cmp.t
+++ b/t/31-atom-cmp.t
@@ -103,6 +103,8 @@ sub compare_ok {
 
  if (ref $exp eq 'Regexp') {
   like $err, $exp, "$desc should fail";
+ } elsif ($err) {
+  fail "$desc failed but shouldn't: $err";
  } else {
   is $c, $exp, "$desc == '$exp'";
  }