File Coverage

t/PerlySense-module-pod.t
Criterion Covered Total %
statement 29 29 100.0
branch 1 2 50.0
condition n/a
subroutine 8 8 100.0
pod n/a
total 38 39 97.4


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2 1     1   227622 use strict;
  1         2  
  1         63  
3              
4 1     1   523 use Test::More tests => 4;
  1         17836  
  1         7  
5 1     1   1246 use Test::Exception;
  1         2785  
  1         4  
6              
7 1     1   207 use File::Basename;
  1         1  
  1         103  
8 1     1   284 use File::Spec::Functions;
  1         454  
  1         65  
9              
10 1     1   259 use lib "../lib";
  1         531  
  1         3  
11              
12 1     1   84419 use_ok("Devel::PerlySense");
  1         575  
  1         2  
  1         2  
  1         5  
13              
14 1 50   1   1416 BEGIN { -d "t" and chdir("t"); }
15              
16              
17 1         272 ok(my $oPs = Devel::PerlySense->new(), "new ok");
18              
19              
20              
21 1         194 my $dirData = "data/simple-lib";
22 1         2 my $nameModule = "Win32::Word::Writer";
23              
24 1         3 ok(my $fileModule = $oPs->fileFindModule(nameModule => $nameModule, dirOrigin => $dirData), "Found file ok");
25              
26 1         403 like($oPs->podFromFile(file => $fileModule), qr/Win32::Word::Writer - Create Microsoft Word documents/, "Correct POD");
27              
28              
29              
30              
31              
32             __END__