File Coverage

t/PerlySense-Document-has-base-class.t
Criterion Covered Total %
statement 31 31 100.0
branch 1 2 50.0
condition n/a
subroutine 7 7 100.0
pod n/a
total 39 40 97.5


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2 1     1   158468 use strict;
  1         2  
  1         63  
3              
4 1     1   463 use Test::More tests => 8;
  1         16158  
  1         8  
5 1     1   1212 use Test::Exception;
  1         16460  
  1         5  
6              
7              
8 1     1   643 use lib "../lib";
  1         554  
  1         3  
9              
10 1     1   89617 use_ok("Devel::PerlySense");
  1         620  
  1         3  
  1         1  
  1         7  
11 1     1   281 use_ok("Devel::PerlySense::Document");
  1         82  
  1         2  
  1         1  
  1         7  
12              
13              
14 1 50   1   1381 BEGIN { -d "t" and chdir("t"); }
15              
16              
17 1         409 ok(my $oDocument = Devel::PerlySense::Document->new(oPerlySense => Devel::PerlySense->new()), "new ok");
18              
19 1         441 my $dirData = "data/project-lib";
20 1         3 my $fileOrigin = "$dirData/Game/Object/Worm.pm";
21              
22 1         4 ok($oDocument->parse(file => $fileOrigin), "Parsed file ok");
23              
24              
25 1         429 is_deeply([ sort $oDocument->aNameBase ],
26             [ sort qw/
27             Game::Object
28             / ], "Found base modules ok");
29              
30              
31 1         1042 ok(! $oDocument->hasBaseClass("Foo::Bar"), "Bogus class not base class");
32 1         2181 ok(! $oDocument->hasBaseClass("Game::Object::Worm"), "Current class not base class");
33 1         196 ok( $oDocument->hasBaseClass("Game::Object"), "Actual base class identified");
34              
35              
36              
37             __END__