File Coverage

t/PerlySense-Plugin-Syntax-Moose-role.t
Criterion Covered Total %
statement 39 39 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 46 46 100.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2 1     1   141086 use strict;
  1         2  
  1         64  
3              
4 1     1   544 use Test::More tests => 12;
  1         15707  
  1         7  
5              
6 1     1   742 use Data::Dumper;
  1         5399  
  1         45  
7              
8 1     1   273 use lib "../lib";
  1         581  
  1         4  
9              
10 1     1   77702 use_ok("Devel::PerlySense");
  1         871  
  1         1398521  
  1         6  
  1         7  
11 1     1   366 use_ok("Devel::PerlySense::Document");
  1         91  
  1         1  
  1         1  
  1         8  
12 1     1   196 use_ok("Devel::PerlySense::Document::Meta");
  1         68  
  1         1  
  1         1  
  1         7  
13              
14             #use Carp::Always;
15              
16 1         188 my $dirData = "t/data/plugin-moose";
17 1         5 my $oMeta;
18              
19              
20              
21 1         13 my @tests = (
22             {
23             file => "Scalar.pm",
24             expects => [ sort qw/ Class::Moose::RoleScalar /],
25             },
26             {
27             file => "List.pm",
28             expects => [ sort qw/ Class::Moose::RoleList1 Class::Moose::RoleList2 /],
29             },
30             {
31             file => "QwList.pm",
32             expects => [ sort qw/ Class::Moose::RoleQwList1 Class::Moose::RoleQwList2 /],
33             },
34             );
35 1         2 for my $test (@tests) {
36 3         1301 my $file = $test->{file};
37 3         12 note("Checking role in ($file)");
38            
39 3         134 my $fileOrigin = "t/data/plugin-moose/Role/$file";
40 3         15 ok(my $oDocument = Devel::PerlySense::Document->new(oPerlySense => Devel::PerlySense->new()), "new ok");
41            
42 3         1382 ok($oDocument->parse(file => $fileOrigin), "Parsed file ok");
43            
44 3         74006 $oMeta = $oDocument->oMeta;
45 3         154 is_deeply(
46 3         62 [ sort @{$oMeta->raNameModuleBase} ],
47             $test->{expects},
48             " correct used modules",
49             );
50             }
51              
52              
53              
54              
55             __END__