File Coverage

t/PerlySense-Class-method-doc-goto.t
Criterion Covered Total %
statement 44 44 100.0
branch 3 6 50.0
condition n/a
subroutine 8 8 100.0
pod n/a
total 55 58 94.8


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2 1     1   113352 use strict;
  1         2  
  1         63  
3              
4 1     1   691 use Test::More tests => 14;
  1         16900  
  1         8  
5 1     1   1340 use Test::Exception;
  1         2624  
  1         4  
6              
7 1     1   1605 use Data::Dumper;
  1         6589  
  1         68  
8              
9              
10 1     1   364 use lib "../lib";
  1         539  
  1         4  
11              
12 1 50   1   85488 use_ok("Devel::PerlySense") or die;
  1         631  
  1         2  
  1         2  
  1         6  
13 1 50   1   275 use_ok("Devel::PerlySense::Class") or die;
  1         74  
  1         2  
  1         1  
  1         6  
14              
15              
16 1 50   1   2349 BEGIN { -d "t" and chdir("t"); }
17              
18              
19              
20 1         192 my $dirData = "data/project-lib";
21 1         3 my $dirOrigin = "$dirData/Game/Object";
22 1         2 my $fileOrigin = "$dirOrigin/Worm.pm";
23              
24 1         4 ok(
25             my $oClassWorm = Devel::PerlySense::Class->newFromFileAt(
26             oPerlySense => Devel::PerlySense->new(),
27             file => $fileOrigin,
28             row => 20,
29             col => 1,
30             ),
31             "newFromFileAt at proper package location ok",
32             );
33              
34              
35              
36 1         302 my $oLocation;
37              
38              
39              
40 1         5 note("POD");
41 1         48 ok(
42             $oLocation = $oClassWorm->oLocationMethodDoc(method => "turn"),
43             "Location for method turn found",
44             );
45 1         230 is($oLocation->row, 244, "Location row ok");
46              
47              
48              
49 1         191 ok(
50             ! $oClassWorm->oLocationMethodDoc(method => "missing_method"),
51             "Location for missing_method not found ok",
52             );
53              
54              
55              
56 1         338 ok(
57             $oLocation = $oClassWorm->oLocationMethodDoc(method => "buildBodyRight"),
58             "Location for method buildBodyRight in base class found",
59             );
60 1         305 is($oLocation->row, 144, "Location row ok");
61 1         212 like($oLocation->file, qr/Game.Object.pm/, "Location file ok");
62              
63              
64              
65              
66              
67              
68              
69              
70              
71 1         190 note("Goto");
72 1         46 ok(
73             $oLocation = $oClassWorm->oLocationMethodGoTo(method => "turn"),
74             "Location for method turn found",
75             );
76 1         217 is($oLocation->row, 253, "Location row ok");
77              
78              
79              
80 1         185 ok(
81             $oLocation = $oClassWorm->oLocationMethodGoTo(method => "buildBodyRight"),
82             "Location for method buildBodyRight in base class found",
83             );
84 1         310 is($oLocation->row, 153, "Location row ok");
85 1         210 like($oLocation->file, qr/Game.Object.pm/, "Location file ok");
86              
87              
88              
89              
90              
91             __END__