File Coverage

t/PerlySense-Class-subclass.t
Criterion Covered Total %
statement 36 36 100.0
branch 1 2 50.0
condition n/a
subroutine 8 8 100.0
pod n/a
total 45 46 97.8


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2 1     1   103064 use strict;
  1         2  
  1         63  
3              
4 1     1   494 use Test::More tests => 8;
  1         14884  
  1         7  
5 1     1   1235 use Test::Exception;
  1         2534  
  1         4  
6              
7 1     1   596 use Data::Dumper;
  1         5273  
  1         44  
8              
9              
10 1     1   268 use lib "../lib";
  1         523  
  1         5  
11              
12 1     1   70999 use_ok("Devel::PerlySense");
  1         589  
  1         2  
  1         2  
  1         5  
13 1     1   274 use_ok("Devel::PerlySense::Class");
  1         75  
  1         1  
  1         2  
  1         6  
14              
15              
16 1 50   1   1317 BEGIN { -d "t" and chdir("t"); }
17              
18              
19              
20 1         191 my $dirData = "data/project-lib";
21 1         3 my $fileOrigin = "$dirData/Game/Object.pm";
22              
23              
24 1         3 ok(
25             my $oClassOject = 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         293 note("Game::Object");
37 1         46 isa_ok($oClassOject, "Devel::PerlySense::Class");
38 1         272 is($oClassOject->name, "Game::Object", " Got correct class name");
39              
40 1         193 is(scalar @{$oClassOject->raDocument}, 1, " Has one Document");
  1         26  
41              
42 1         192 ok(my $rhClassObjecClassSub = $oClassOject->rhClassSub, "Got subclasses");
43              
44 1         306 is_deeply(
45             [ sort keys %$rhClassObjecClassSub ],
46             [ sort qw/ Game::Object::Prize Game::Object::Wall Game::Object::Worm Game::Lawn / ],
47             " And it's the correct class names",
48             );
49              
50              
51              
52             __END__