r23674@knight: rjbs | 2006-07-22 13:53:24 -0400

 test plan

3 files changed, 20 insertions, 15 deletions

diff --git a/t/abs-object.t b/t/abs-object.t
index 32413d6..f958c4b 100644
--- a/t/abs-object.t
+++ b/t/abs-object.t
@@ -10,23 +10,25 @@ use Test::EmailAbstract;
 my @classes
   = qw(Email::MIME Email::Simple MIME::Entity Mail::Internet Mail::Message);
 
-plan tests => 6 * @classes  +  6;
+plan tests => 1  +  6 * @classes  +  5;
 
 use_ok("Email::Abstract");
 
 my $message = do { local $/; <DATA>; };
 
-SKIP: for my $class (@classes) {
-    eval "require $class";
-    skip "$class can't be loaded", 4 if $@;
+for my $class (@classes) {
+    SKIP: {
+        eval "require $class";
+        skip "$class can't be loaded", 6 if $@;
 
-    my $obj = Email::Abstract->cast($message, $class);
+        my $obj = Email::Abstract->cast($message, $class);
 
-    my $email_abs = Email::Abstract->new($obj);
+        my $email_abs = Email::Abstract->new($obj);
 
-    isa_ok($email_abs, 'Email::Abstract', "wrapped $class object");
+        isa_ok($email_abs, 'Email::Abstract', "wrapped $class object");
 
-    Test::EmailAbstract::wrapped_ok($class, $email_abs, 0);
+        Test::EmailAbstract::wrapped_ok($class, $email_abs, 0);
+    }
 }
 
 my $email_abs = Email::Abstract->new($message);
diff --git a/t/classy.t b/t/classy.t
index 1881d8e..3e769c9 100644
--- a/t/classy.t
+++ b/t/classy.t
@@ -7,23 +7,25 @@ use Test::EmailAbstract;
 my @classes
   = qw(Email::MIME Email::Simple MIME::Entity Mail::Internet Mail::Message);
 
-plan tests => 6 * @classes  +  6;
+plan tests => 1  +  6 * @classes  +  5;
 
 use_ok("Email::Abstract");
 
 my $message = do { local $/; <DATA>; };
 
-SKIP: for my $class (
+for my $class (
     qw(Email::MIME Email::Simple MIME::Entity Mail::Internet Mail::Message)
 ) {
-    eval "require $class";
-    skip "$class can't be loaded", 4 if $@;
+    SKIP: {
+        eval "require $class";
+        skip "$class can't be loaded", 6 if $@;
 
-    my $obj = Email::Abstract->cast($message, $class);
+        my $obj = Email::Abstract->cast($message, $class);
 
-    isa_ok($obj, $class, "string cast to $class");
+        isa_ok($obj, $class, "string cast to $class");
 
-    Test::EmailAbstract::class_ok($class, $obj, 0);
+        Test::EmailAbstract::class_ok($class, $obj, 0);
+    }
 }
 
 Test::EmailAbstract::class_ok('plaintext', $message, 1);
diff --git a/t/lib/Test/EmailAbstract.pm b/t/lib/Test/EmailAbstract.pm
index 10c18f7..c192cd6 100644
--- a/t/lib/Test/EmailAbstract.pm
+++ b/t/lib/Test/EmailAbstract.pm
@@ -14,6 +14,7 @@ sub _call {
   }
 }
 
+# This is responsible for running 5 tests.
 sub _test_object {
     my ($wrapped, $class, $obj, $readonly) = @_;