File Coverage

t/PerlySense-Plugin-Syntax-Moose-base-class.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   109810 use strict;
  1         2  
  1         68  
3              
4 1     1   509 use Test::More tests => 12;
  1         14436  
  1         7  
5              
6 1     1   772 use Data::Dumper;
  1         5280  
  1         46  
7              
8 1     1   287 use lib "../lib";
  1         543  
  1         3  
9              
10 1     1   81497 use_ok("Devel::PerlySense");
  1         870  
  1         1498202  
  1         6  
  1         8  
11 1     1   282 use_ok("Devel::PerlySense::Document");
  1         87  
  1         1  
  1         1  
  1         8  
12 1     1   198 use_ok("Devel::PerlySense::Document::Meta");
  1         64  
  1         1  
  1         1  
  1         8  
13              
14             #use Carp::Always;
15              
16 1         246 my $dirData = "t/data/plugin-moose";
17 1         3 my $oMeta;
18              
19              
20              
21 1         15 my @tests = (
22             {
23             file => "Scalar.pm",
24             expects => [ sort qw/ Class::Moose::ExtendsScalar /],
25             },
26             {
27             file => "List.pm",
28             expects => [ sort qw/ Class::Moose::ExtendsList1 Class::Moose::ExtendsList2 /],
29             },
30             {
31             file => "QwList.pm",
32             expects => [ sort qw/ Class::Moose::ExtendsQwList1 Class::Moose::ExtendsQwList2 /],
33             },
34             );
35 1         2 for my $test (@tests) {
36 3         1493 my $file = $test->{file};
37 3         12 note("Checking extends in ($file)");
38            
39 3         306 my $fileOrigin = "t/data/plugin-moose/SubClass/$file";
40 3         18 ok(my $oDocument = Devel::PerlySense::Document->new(oPerlySense => Devel::PerlySense->new()), "new ok");
41            
42 3         1407 ok($oDocument->parse(file => $fileOrigin), "Parsed file ok");
43            
44 3         48154 $oMeta = $oDocument->oMeta;
45 3         145 is_deeply(
46 3         36 [ sort @{$oMeta->raNameModuleBase} ],
47             $test->{expects},
48             " correct used modules",
49             );
50             }
51              
52              
53              
54              
55             __END__