Changeset 4020

Timestamp:

01/04/08 10:15:24 (5 years ago)

Author:

daisuke

Message:

lang/perl/Senna; use all_pod_coverage_ok()

Files:

• lang/perl/Senna/trunk/t/99_pod-coverage.t (modified) (1 diff)

lang/perl/Senna/trunk/t/99_pod-coverage.t

@@ -11 +11 @@
             plan skip_all => "Test::Pod::Coverage required for testing pod coverage";
         } else {
-            my @modules = grep { $_ ne 'Gungho::Plugin::RequestTimer' } Test::Pod::Coverage::all_modules();
-            plan tests => scalar(@modules);
-            Test::Pod::Coverage::pod_coverage_ok($_,
-                { also_private => [ qr/^XS_/ ] }) for @modules;
+            Test::Pod::Coverage::all_pod_coverage_ok();
         }
     }