is_available method, base class, do not use broken Mail::Internet

2 files changed, 7 insertions, 3 deletions

diff --git a/t/lib/Test/EmailAbstract.pm b/t/lib/Test/EmailAbstract.pm
index 452e4ef..e498a30 100644
--- a/t/lib/Test/EmailAbstract.pm
+++ b/t/lib/Test/EmailAbstract.pm
@@ -107,7 +107,7 @@ sub object_ok { shift->_do_tests(1, @_); }
 
 sub load {
   my ($self, $class) = @_;
-  if (eval "require $class; 1") {
+  if (eval "require $class; Email::Abstract->__class_for('$class')") {
     diag "testing $class with " . $class->VERSION;
   } else {
     skip "$class: unavailable", $self->tests_per_module;
diff --git a/t/subclass.t b/t/subclass.t
index 0fa38b2..c34e7fc 100644
--- a/t/subclass.t
+++ b/t/subclass.t
@@ -1,6 +1,7 @@
 {
   package MyMail;
-  use base "Email::Simple";
+  use Email::Simple;
+  BEGIN{ @MyMail::ISA = 'Email::Simple';
 }
 
 package main;
@@ -16,7 +17,10 @@ like($y->as_string, qr/Farley's/, "Round trip subclass via object wrapped");
 
 SKIP: {
   skip "this test requires MIME::Entity", 1
-    unless eval { require MIME::Entity; 1 };
+    unless eval {
+      require Email::Abstract::MIMEEntity;
+      Email::Abstract::MIMEEntity->is_available
+    };
   { # should always adapt as if it's MIME::Entity, the nearest class
     package MultiHopMail;
     require MIME::Entity;