File Coverage

t/PerlySense-go-to-module-method-file.t
Criterion Covered Total %
statement 44 44 100.0
branch 1 2 50.0
condition n/a
subroutine 9 9 100.0
pod n/a
total 54 55 98.1


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2 1     1   127723 use strict;
  1         2  
  1         64  
3              
4 1     1   496 use Test::More tests => 11;
  1         17400  
  1         8  
5 1     1   1179 use Test::Exception;
  1         5826  
  1         6  
6              
7 1     1   224 use File::Basename;
  1         2  
  1         105  
8 1     1   292 use File::Spec::Functions;
  1         464  
  1         66  
9              
10 1     1   394 use lib "../lib";
  1         610  
  1         4  
11              
12 1     1   82306 use_ok("Devel::PerlySense");
  1         600  
  1         2  
  1         1  
  1         7  
13 1     1   660 use_ok("Devel::PerlySense::Document::Location");
  1         80  
  1         1  
  1         1  
  1         8  
14              
15              
16 1 50   1   1498 BEGIN { -d "t" and chdir("t"); }
17              
18              
19 1         595 ok(my $oPs = Devel::PerlySense->new(), "new ok");
20              
21              
22              
23 1         292 my $dirData = "data/project-lib";
24 1         2 my $fileOrigin = "$dirData/Game/Application.pm";
25 1         2 my $oLocation;
26 1         1 my $rexDestination;
27              
28 1         4 $rexDestination = qr/Game.Object.Worm.Bot.pm$/;
29 1         4 ok($oLocation = $oPs->oLocationSmartGoTo(file => $fileOrigin, row => 115, col => 45), "Found source ok, on method");
30 1         324 like($oLocation->file, $rexDestination, " file found");
31 1         213 is($oLocation->row, 81, " row ok");
32 1         214 is($oLocation->col, 1, " col ok");
33              
34              
35 1         188 $rexDestination = qr/Game.Object.Worm.pm$/;
36 1         5 ok($oLocation = $oPs->oLocationSmartGoTo(file => $fileOrigin, row => 163, col => 39), "Found source ok, on method");
37 1         314 like($oLocation->file, $rexDestination, " file found");
38 1         213 is($oLocation->row, 360, " row ok");
39 1         218 is($oLocation->col, 1, " col ok");
40              
41              
42              
43              
44              
45              
46              
47             __END__