File Coverage

t/PerlySense-Document-Api.t
Criterion Covered Total %
statement 45 45 100.0
branch 1 2 50.0
condition n/a
subroutine 9 9 100.0
pod n/a
total 55 56 98.2


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2 1     1   108044 use strict;
  1         2  
  1         69  
3              
4 1     1   530 use Test::More tests => 10;
  1         24469  
  1         9  
5 1     1   1279 use Test::Exception;
  1         3055  
  1         4  
6              
7 1     1   662 use Data::Dumper;
  1         5878  
  1         67  
8              
9 1     1   366 use lib "../lib";
  1         549  
  1         4  
10              
11 1     1   81171 use_ok("Devel::PerlySense::Document::Api");
  1         353  
  1         2  
  1         2  
  1         8  
12 1     1   597 use_ok("Devel::PerlySense::Document");
  1         120  
  1         1  
  1         2  
  1         7  
13 1     1   202 use_ok("Devel::PerlySense");
  1         75  
  1         1  
  1         1  
  1         6  
14              
15              
16 1 50   1   3535 BEGIN { -d "t" and chdir("t"); }
17              
18 1         190 my $dirData = "data/project-lib";
19 1         3 my $fileOrigin = "$dirData/Game/Event/Timed.pm";
20 1         2 my $nameModule = "Game::Event::Timed";
21              
22 1         1 my $oLocation;
23 1         1 my $method;
24              
25              
26 1         7 print "\n* Class\n";
27              
28 1         7 ok(my $oDocument = Devel::PerlySense::Document->new(oPerlySense => Devel::PerlySense->new()), "new ok");
29 1         188 ok($oDocument->parse(file => $fileOrigin), "Parsed file ok");
30              
31 1         490 ok($oDocument->determineLikelyApi(nameModule => $nameModule), "determineLikelyApi ok");
32              
33 1         269 ok(my $oApi = $oDocument->rhPackageApiLikely->{$nameModule}, "Got package API ok");
34              
35              
36              
37 1         190 ok( ! $oApi->isSubSupported("missing_method"), " isSubSupported didn't find missing sub ok");
38              
39 1         582 $method = "probabilityTurnRandomly";
40 1         3 ok($oLocation = $oApi->oLocationSetSub(nameSub => $method, oDocument => $oDocument), " oLocationSetSub without node ok");
41              
42 1         186 ok($oApi->isSubSupported($method), " isSubSupported found present sub ok");
43              
44              
45              
46              
47              
48              
49             __END__