File Coverage

blib/lib/Test/File/Find/CaseCollide.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 23 23 100.0


line stmt bran cond sub pod time code
1             package Test::File::Find::CaseCollide;
2             $Test::File::Find::CaseCollide::VERSION = '0.2.0';
3 1     1   69909 use strict;
  1         13  
  1         29  
4 1     1   5 use warnings;
  1         2  
  1         29  
5 1     1   584 use Test::Differences (qw( eq_or_diff ));
  1         18067  
  1         62  
6 1     1   457 use File::Find::CaseCollide ();
  1         4  
  1         117  
7              
8             sub verify
9             {
10 1     1 1 92 local $Test::Builder::Level = $Test::Builder::Level + 1;
11 1         3 my ( $class, $args ) = @_;
12 1         19 my $obj = File::Find::CaseCollide->new( { dir => $args->{dir} } );
13 1         1298 my $results = $obj->find;
14              
15 1         6 return eq_or_diff( $results, {}, "No results were found." );
16             }
17              
18             1;
19              
20             __END__