File Coverage

t/PerlySense-find-file-inc.t
Criterion Covered Total %
statement 43 43 100.0
branch 1 2 50.0
condition n/a
subroutine 9 9 100.0
pod n/a
total 53 54 98.1


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2 1     1   129604 use strict;
  1         2  
  1         63  
3              
4 1     1   520 use Test::More tests => 5;
  1         15957  
  1         7  
5 1     1   632 use Test::Exception;
  1         2644  
  1         4  
6              
7 1     1   203 use File::Basename;
  1         2  
  1         96  
8 1     1   257 use File::Spec::Functions;
  1         453  
  1         63  
9 1     1   252 use Path::Class;
  1         32078  
  1         44  
10              
11 1     1   272 use lib "../lib";
  1         519  
  1         4  
12              
13 1     1   126319 use_ok("Devel::PerlySense");
  1         606  
  1         2  
  1         2  
  1         7  
14              
15 1 50   1   1717 BEGIN { -d "t" and chdir("t"); }
16              
17              
18              
19              
20             {
21 1         278 local @INC = (@INC, "data/inc-lib");
  1         5  
22              
23             {
24 1         2 ok(my $oPs = Devel::PerlySense->new(), "new ok");
  1         4  
25 1         206 my $dirData = "data/simple-lib/lib";
26 1         2 my $dirOrigin = $dirData;
27 1         2 my $nameModule = "Game::Event::Timed";
28 1         9 my $fileModuleTarget = catfile("Game", "Event", "Timed.pm");
29              
30 1         38 like(
31             $oPs->fileFindModule(nameModule => $nameModule, dirOrigin => $dirOrigin),
32             qr/ \Q$fileModuleTarget\E $/x,
33             "Found file downwards before \@INC ok",
34             );
35             }
36              
37              
38             {
39 1         228 ok(my $oPs = Devel::PerlySense->new(), "new ok");
  1         5  
40 1         183 my $dirData = file("data/inc-lib")->absolute . "";
41 1         268 my $dirOrigin = "/";
42 1         1 my $nameModule = "Game::Event::Timed";
43 1         4 my $fileModuleTarget = catfile($dirData, "Game", "Event", "Timed.pm");
44              
45 1         16 like(
46             $oPs->fileFindModule(nameModule => $nameModule, dirOrigin => $dirOrigin),
47             qr/ \Q$fileModuleTarget\E $/x,
48             "Found file in inc ok",
49             );
50             }
51             }
52              
53              
54              
55              
56              
57              
58              
59             __END__