File Coverage

t/PerlySense-go-to-self-method-file.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   161058 use strict;
  1         2  
  1         78  
3              
4 1     1   545 use Test::More tests => 13;
  1         16636  
  1         8  
5 1     1   1171 use Test::Exception;
  1         3015  
  1         4  
6              
7 1     1   207 use File::Basename;
  1         1  
  1         103  
8 1     1   290 use File::Spec::Functions;
  1         472  
  1         68  
9              
10 1     1   329 use lib "../lib";
  1         963  
  1         5  
11              
12 1     1   75394 use_ok("Devel::PerlySense");
  1         601  
  1         2  
  1         1  
  1         7  
13 1     1   274 use_ok("Devel::PerlySense::Document::Location");
  1         77  
  1         1  
  1         1  
  1         7  
14              
15              
16 1 50   1   1530 BEGIN { -d "t" and chdir("t"); }
17              
18              
19 1         195 ok(my $oPs = Devel::PerlySense->new(), "new ok");
20              
21              
22              
23 1         204 my $dirData = "data/simple-lib";
24 1         3 my $fileOrigin = "$dirData/lib/Win32/Word/Writer.pm";
25 1         1 my $oLocation;
26              
27              
28              
29 1         5 ok(! $oPs->oLocationSmartGoTo(file => $fileOrigin, row => 420, col => 17), "Didn't find hOpt");
30              
31 1         290 ok(! $oPs->oLocationSmartGoTo(file => $fileOrigin, row => 420, col => 5234), "Didn't find point at far right");
32              
33              
34 1         293 ok($oLocation = $oPs->oLocationSmartGoTo(file => $fileOrigin, row => 423, col => 21), "Found source ok, on method");
35 1         313 is($oLocation->file, $fileOrigin, " file same");
36 1         219 is($oLocation->row, 446, " row ok");
37 1         208 is($oLocation->col, 1, " col ok");
38              
39              
40 1         187 ok($oLocation = $oPs->oLocationSmartGoTo(file => $fileOrigin, row => 429, col => 14), "Found source ok, on method");
41 1         315 is($oLocation->file, $fileOrigin, " file same");
42 1         213 is($oLocation->row, 396, " row ok");
43 1         531 is($oLocation->col, 1, " col ok");
44              
45              
46              
47              
48              
49              
50             __END__