r32163@knight: rjbs | 2007-07-23 08:58:25 -0400

 fix test plans

1 files changed, 5 insertions, 1 deletions

diff --git a/t/lib/Test/EmailAbstract.pm b/t/lib/Test/EmailAbstract.pm
index 792ab26..4ed6513 100644
--- a/t/lib/Test/EmailAbstract.pm
+++ b/t/lib/Test/EmailAbstract.pm
@@ -23,7 +23,11 @@ sub _call {
 
 sub tests_per_class  { 7 }
 sub tests_per_object { 8 }
-sub tests_per_module { $_[0]->tests_per_class + $_[0]->tests_per_object }
+sub tests_per_module {
+  + 1
+  + 2 * $_[0]->tests_per_class
+  + 1 * $_[0]->tests_per_object
+}
 
 sub _do_tests {
   my ($self, $is_wrapped, $class, $obj, $readonly) = @_;