File Coverage

blib/lib/Mason/t/Util.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 14 15 93.3


line stmt bran cond sub pod time code
1             package Mason::t::Util;
2             $Mason::t::Util::VERSION = '2.23';
3 1     1   693 use Test::Class::Most parent => 'Mason::Test::Class';
  1         27749  
  1         6  
4 1     1   87 use Mason::Util qw(combine_similar_paths);
  1         2  
  1         97  
5              
6             sub test_combine_similar_paths : Tests {
7 1     1 0 714 cmp_deeply( [ combine_similar_paths(qw(/foo/bar.m /foo/bar.pm /foo.m /foo.pm)) ],
8             [ '/foo/bar.{m,pm}', '/foo.{m,pm}' ] );
9 1     1   5 }
  1         1  
  1         5  
10              
11             1;