File Coverage

t/PerlySense-go-to-object-method-file.t
Criterion Covered Total %
statement 38 38 100.0
branch 1 2 50.0
condition n/a
subroutine 9 9 100.0
pod n/a
total 48 49 97.9


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2 1     1   177604 use strict;
  1         2  
  1         67  
3              
4 1     1   526 use Test::More tests => 7;
  1         18884  
  1         9  
5 1     1   1624 use Test::Exception;
  1         2594  
  1         4  
6              
7 1     1   217 use File::Basename;
  1         1  
  1         105  
8 1     1   1018 use File::Spec::Functions;
  1         472  
  1         63  
9              
10 1     1   349 use lib "../lib";
  1         550  
  1         4  
11              
12 1     1   88771 use_ok("Devel::PerlySense");
  1         629  
  1         3  
  1         2  
  1         7  
13 1     1   272 use_ok("Devel::PerlySense::Document::Location");
  1         76  
  1         1  
  1         1  
  1         7  
14              
15              
16 1 50   1   1483 BEGIN { -d "t" and chdir("t"); }
17              
18              
19 1         199 ok(my $oPs = Devel::PerlySense->new(), "new ok");
20              
21              
22              
23 1         194 my $dirData = "data/project-lib";
24 1         2 my $fileOrigin = "$dirData/Game/Lawn.pm";
25 1         2 my $oLocation;
26 1         4 my $rexFile = qr/Game.Location.pm$/;
27              
28              
29 1         4 ok($oLocation = $oPs->oLocationSmartGoTo(file => $fileOrigin, row => 391, col => 53), "Found source ok, on method");
30 1         306 like($oLocation->file, $rexFile, " file same");
31 1         210 is($oLocation->row, 44, " row ok");
32 1         210 is($oLocation->col, 1, " col ok");
33              
34              
35              
36              
37              
38              
39             __END__