File: 01-pod-coverage.t

package info (click to toggle)
libnet-write-perl 1.05-1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze, wheezy
  • size: 120 kB
  • ctags: 32
  • sloc: perl: 412; makefile: 2
file content (15 lines) | stat: -rw-r--r-- 512 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
eval "use Test::Pod::Coverage tests => 5";
if ($@) {
   use Test;
   plan(tests => 1);
   skip("Test::Pod::Coverage required for testing");
}
else {
   my $trustparents = { coverage_class => 'Pod::Coverage::CountParents' };

   pod_coverage_ok("Net::Write",         $trustparents);
   pod_coverage_ok("Net::Write::Layer",  $trustparents);
   pod_coverage_ok("Net::Write::Layer2", $trustparents);
   pod_coverage_ok("Net::Write::Layer3", $trustparents);
   pod_coverage_ok("Net::Write::Layer4", $trustparents);
}