File Coverage

t/PerlySense-smart-doc-object-method.t
Criterion Covered Total %
statement 39 39 100.0
branch 1 2 50.0
condition n/a
subroutine 9 9 100.0
pod n/a
total 49 50 98.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2 1     1   131134 use strict;
  1         2  
  1         93  
3              
4 1     1   473 use Test::More tests => 8;
  1         18052  
  1         406  
5 1     1   1901 use Test::Exception;
  1         2681  
  1         4  
6              
7 1     1   219 use File::Basename;
  1         1  
  1         392  
8 1     1   436 use File::Spec::Functions;
  1         520  
  1         63  
9              
10 1     1   263 use lib "../lib";
  1         538  
  1         4  
11              
12 1     1   103537 use_ok("Devel::PerlySense");
  1         593  
  1         2  
  1         2  
  1         6  
13 1     1   270 use_ok("Devel::PerlySense::Document::Location");
  1         75  
  1         3  
  1         0  
  1         7  
14              
15              
16 1 50   1   1407 BEGIN { -d "t" and chdir("t"); }
17              
18              
19 1         195 ok(my $oPs = Devel::PerlySense->new(), "new ok");
20              
21              
22              
23 1         246 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->oLocationSmartDoc(file => $fileOrigin, row => 391, col => 53), "Found source ok, on method");
30 1         311 like($oLocation->file, $rexFile, " file same");
31 1         210 is($oLocation->row, 44, " row ok");
32 1         218 is($oLocation->col, 1, " col ok");
33 1         216 is(
34             $oLocation->rhProperty->{text},
35             q{PROPERTIES
36             top
37             Top coordinate
38              
39             Default: 0},
40             " doc text ok",
41             );
42              
43              
44              
45              
46              
47             __END__