File Coverage

t/PerlySense-Document-Meta-use.t
Criterion Covered Total %
statement 44 44 100.0
branch 1 2 50.0
condition n/a
subroutine 11 11 100.0
pod n/a
total 56 57 98.2


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2 1     1   180163 use strict;
  1         2  
  1         85  
3              
4 1     1   506 use Test::More tests => 6;
  1         22061  
  1         9  
5 1     1   1201 use Test::Exception;
  1         3915  
  1         4  
6              
7 1     1   644 use Data::Dumper;
  1         84173  
  1         97  
8 1     1   9 use File::Basename;
  1         3  
  1         88  
9 1     1   412 use File::Spec::Functions;
  1         22603  
  1         123  
10              
11 1     1   410 use lib "../lib";
  1         569  
  1         4  
12              
13 1     1   209910 use_ok("Devel::PerlySense");
  1         764  
  1         2  
  1         2  
  1         8  
14 1     1   297 use_ok("Devel::PerlySense::Document");
  1         82  
  1         1  
  1         1  
  1         7  
15 1     1   194 use_ok("Devel::PerlySense::Document::Meta");
  1         64  
  1         1  
  1         2  
  1         7  
16              
17              
18 1 50   1   1392 BEGIN { -d "t" and chdir("t"); }
19              
20              
21 1         196 ok(my $oDocument = Devel::PerlySense::Document->new(oPerlySense => Devel::PerlySense->new()), "new ok");
22              
23              
24 1         217 my $dirData = "data/project-lib";
25 1         3 my $fileOrigin = "$dirData/Game/Object/Worm.pm";
26              
27 1         6 ok($oDocument->parse(file => $fileOrigin), "Parsed file ok");
28              
29 1         3027 my $oMeta = $oDocument->oMeta;
30              
31 1         11 is_deeply([sort @{$oMeta->raNameModuleUse}], [
  1         29  
32             sort qw/
33             Class::MethodMaker
34             Data::Dumper
35             Exception::Class
36             Game::Direction
37             Game::Event::Timed
38             Game::Location
39             /], " correct used modules");
40              
41             #print Dumper($oMeta);
42              
43              
44              
45             __END__