File Coverage

t/PerlySense-Document-module-method-call.t
Criterion Covered Total %
statement 40 40 100.0
branch 1 2 50.0
condition n/a
subroutine 9 9 100.0
pod n/a
total 50 51 98.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2 1     1   133051 use strict;
  1         2  
  1         63  
3              
4 1     1   708 use Test::More tests => 7;
  1         18132  
  1         7  
5 1     1   961 use Test::Exception;
  1         2616  
  1         4  
6              
7 1     1   208 use File::Basename;
  1         1  
  1         98  
8 1     1   268 use File::Spec::Functions;
  1         656  
  1         65  
9              
10 1     1   297 use lib "../lib";
  1         552  
  1         4  
11              
12 1     1   77900 use_ok("Devel::PerlySense::Document");
  1         397  
  1         4  
  1         2  
  1         15  
13 1     1   1713 use_ok("Devel::PerlySense::Document::Location");
  1         126  
  1         2  
  1         2  
  1         30  
14              
15              
16 1 50   1   1443 BEGIN { -d "t" and chdir("t"); }
17              
18              
19 1         221 ok(my $oDocument = Devel::PerlySense::Document->new(oPerlySense => Devel::PerlySense->new()), "new ok");
20              
21 1         189 my $dirData = "data/project-lib";
22 1         2 my $fileOrigin = "$dirData/Game/Object.pm";
23              
24 1         4 ok($oDocument->parse(file => $fileOrigin), "Parsed file ok");
25              
26              
27              
28              
29              
30 1         399 my $fragment = 'Game::Location->new';
31 1         2 my $module = "Game::Location";
32 1         1 my $method = "new";
33 1         6 is(scalar($oDocument->moduleMethodCallAt(row => 158, col => 57)), $fragment, "static new found in scalar context");
34 1         208 is_deeply([$oDocument->moduleMethodCallAt(row => 158, col => 57)], [$module, $method], "static new found in list context");
35              
36              
37 1         700 $fragment = 'Game::Object::Worm->loadFile';
38 1         4 is(scalar($oDocument->moduleMethodCallAt(row => 162, col => 37)), $fragment, "static method found");
39              
40              
41              
42              
43              
44              
45             __END__