view release on metacpan or  search on metacpan

lib/Test/File/Find/CaseCollide.pm  view on Meta::CPAN

package Test::File::Find::CaseCollide;
$Test::File::Find::CaseCollide::VERSION = '0.2.0';
use strict;
use warnings;
use Test::Differences (qw( eq_or_diff ));
use File::Find::CaseCollide ();

sub verify
{
    local $Test::Builder::Level = $Test::Builder::Level + 1;
    my ( $class, $args ) = @_;
    my $obj     = File::Find::CaseCollide->new( { dir => $args->{dir} } );
    my $results = $obj->find;

    return eq_or_diff( $results, {}, "No results were found." );
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Test::File::Find::CaseCollide - test for collisions in filenames, differing only in case

=head1 VERSION

version 0.2.0

=head1 SYNOPSIS

    use Test::More tests => 1;
    use Test::File::Find::CaseCollide ();

    # TEST
    Test::File::Find::CaseCollide->verify( { dir => '.' } );

=head1 METHODS

=head2 Test::File::Find::CaseCollide->verify({dir => "."});

Verifies that there are no conflicting filenames in the dir.

=head1 NOTE

I noticed that usually the following code will be faster on UNIX-like
operating systems:

    #!/usr/bin/env perl

    use strict;
    use warnings;
    use Test::More tests => 1;

    # TEST
    is( system(q#find . -print0 | perl -n0e 'die $_ if $h{lc$_}++'#),
        0, "case sensitive filename collision" );

The shell command is:

    find . -print0 | perl -n0e 'die $_ if $h{lc$_}++'