File Coverage

t/PerlySense-Document-Meta-base-class.t
Criterion Covered Total %
statement 67 67 100.0
branch 1 2 50.0
condition n/a
subroutine 11 11 100.0
pod n/a
total 79 80 98.7


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2 1     1   108702 use strict;
  1         2  
  1         62  
3              
4 1     1   483 use Test::More tests => 15;
  1         14324  
  1         6  
5 1     1   633 use Test::Exception;
  1         2511  
  1         4  
6              
7 1     1   598 use Data::Dumper;
  1         5265  
  1         50  
8 1     1   5 use File::Basename;
  1         1  
  1         80  
9 1     1   298 use File::Spec::Functions;
  1         450  
  1         59  
10              
11 1     1   261 use lib "../lib";
  1         537  
  1         3  
12              
13 1     1   71000 use_ok("Devel::PerlySense");
  1         615  
  1         3  
  1         1  
  1         11  
14 1     1   313 use_ok("Devel::PerlySense::Document");
  1         85  
  1         1  
  1         2  
  1         8  
15 1     1   194 use_ok("Devel::PerlySense::Document::Meta");
  1         56  
  1         199  
  1         2  
  1         9  
16              
17              
18 1 50   1   1576 BEGIN { -d "t" and chdir("t"); }
19              
20              
21 1         206 my $dirData = "data/project-lib";
22 1         1 my $oMeta;
23              
24              
25             {
26 1         2 my $fileOrigin = "$dirData/Game/Object/Worm/Bot.pm";
  1         3  
27 1         5 ok(my $oDocument = Devel::PerlySense::Document->new(oPerlySense => Devel::PerlySense->new()), "new ok");
28            
29 1         190 ok($oDocument->parse(file => $fileOrigin), "Parsed file ok");
30            
31 1         320 $oMeta = $oDocument->oMeta;
32 1         4 is_deeply([sort @{$oMeta->raNameModuleBase}], [
  1         24  
33             sort qw/
34             Game::Object::Worm
35             /], " correct used modules");
36             }
37              
38              
39              
40             {
41 1         6256 my $fileOrigin = "$dirData/Game/Object/Worm/ShaiHulud.pm";
  1         4  
42 1         9 ok(my $oDocument = Devel::PerlySense::Document->new(oPerlySense => Devel::PerlySense->new()), "new ok");
43            
44 1         217 ok($oDocument->parse(file => $fileOrigin), "Parsed file ok");
45            
46 1         318 $oMeta = $oDocument->oMeta;
47 1         19 is_deeply([sort @{$oMeta->raNameModuleBase}], [
  1         326  
48             sort qw/
49             Game::Object::Worm
50             Game::Lawn
51             /], " correct used modules");
52             }
53              
54              
55              
56             {
57 1         3665 my $fileOrigin = "$dirData/Game/Object/Worm/Shaitan.pm";
  1         17  
58 1         12 ok(my $oDocument = Devel::PerlySense::Document->new(oPerlySense => Devel::PerlySense->new()), "new ok");
59            
60 1         263 ok($oDocument->parse(file => $fileOrigin), "Parsed file ok");
61            
62 1         618 $oMeta = $oDocument->oMeta;
63 1         11 is_deeply([sort @{$oMeta->raNameModuleBase}], [
  1         204  
64             sort qw/
65             Game::Lawn
66             Game::Object::Worm
67             /], " correct used modules");
68             }
69              
70              
71              
72              
73             {
74 1         2429 my $fileOrigin = "data/inc-lib/SubClass.pm";
  1         2  
75 1         8 ok(my $oDocument = Devel::PerlySense::Document->new(oPerlySense => Devel::PerlySense->new()), "new ok");
76            
77 1         192 ok($oDocument->parse(file => $fileOrigin), "Parsed file ok");
78            
79 1         308 $oMeta = $oDocument->oMeta;
80 1         9 is_deeply([sort @{$oMeta->raNameModuleBase}], [
  1         137  
81             sort qw/
82             Class::IsaAssignmentScalar
83              
84             Class::IsaAssignmentList1
85             Class::IsaAssignmentList2
86              
87             Class::IsaAssignmentQwList1
88             Class::IsaAssignmentQwList2
89              
90             Class::PushIsa
91             Class::PushAnotherIsa
92              
93             Class::UseBaseScalar
94              
95             Class::UseBaseBareList1
96             Class::UseBaseBareList2
97              
98             Class::UseBaseList1
99             Class::UseBaseList2
100              
101             Class::UseBaseQw1
102             Class::UseBaseQw2
103              
104             /], " correct used modules");
105             }
106              
107              
108              
109              
110             __END__