File Coverage

t/PerlySense-go-to-module-file.t
Criterion Covered Total %
statement 47 47 100.0
branch 1 2 50.0
condition n/a
subroutine 9 9 100.0
pod n/a
total 57 58 98.2


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2 1     1   147215 use strict;
  1         2  
  1         65  
3              
4 1     1   521 use Test::More tests => 16;
  1         15352  
  1         6  
5 1     1   628 use Test::Exception;
  1         2588  
  1         4  
6              
7 1     1   601 use Data::Dumper;
  1         7074  
  1         62  
8 1     1   6 use File::Basename;
  1         1  
  1         70  
9              
10 1     1   369 use lib "../lib";
  1         799  
  1         4  
11              
12 1     1   77163 use_ok("Devel::PerlySense");
  1         770  
  1         2  
  1         2  
  1         7  
13 1     1   277 use_ok("Devel::PerlySense::Document::Location");
  1         78  
  1         2  
  1         1  
  1         7  
14              
15              
16 1 50   1   1682 BEGIN { -d "t" and chdir("t"); }
17              
18              
19 1         197 ok(my $oPs = Devel::PerlySense->new(), "new ok");
20              
21              
22              
23 1         199 my $dirData = "data/simple-lib";
24 1         3 my $fileOrigin = "$dirData/lib/Win32/Word/Writer.pm";
25 1         1 my $oLocation;
26 1         3 my $fileTarget = "./$dirData/lib/Win32/Word/Writer/Table.pm";
27              
28              
29 1         4 ok(! $oPs->oLocationSmartGoTo(file => $fileOrigin, row => 160, col => 7), "Didn't find rhConst");
30              
31              
32 1         294 ok($oLocation = $oPs->oLocationSmartGoTo(file => $fileOrigin, row => 157, col => 11), "Found source ok, use module");
33 1         307 like($oLocation->file, qr/Writer.Table\.pm/, " file same");
34 1         214 is($oLocation->row, 1, " row ok");
35 1         213 is($oLocation->col, 1, " col ok");
36              
37              
38 1         203 ok($oLocation = $oPs->oLocationSmartGoTo(file => $fileOrigin, row => 321, col => 20), "Found source ok, on module in class method call");
39 1         1026 like($oLocation->file, qr/File.Spec\.pm$/, " file ok");
40 1         222 is($oLocation->row, 1, " row ok");
41 1         214 is($oLocation->col, 1, " col ok");
42              
43              
44 1         192 ok($oLocation = $oPs->oLocationSmartGoTo(file => $fileOrigin, row => 156, col => 15), "Found source ok, class in string");
45 1         731 like($oLocation->file, qr/Writer.Table\.pm/, " file same");
46 1         225 is($oLocation->row, 1, " row ok");
47 1         213 is($oLocation->col, 1, " col ok");
48              
49              
50              
51              
52              
53              
54             __END__