File-Find-CaseCollide

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

  "dist_version" => "0.2.0",
  "license" => "mit",
  "module_name" => "File::Find::CaseCollide",
  "recursive_test_files" => 1,
  "requires" => {
    "File::Find::Object" => 0,
    "Getopt::Long" => 0,
    "JSON::MaybeXS" => 0,
    "List::Util" => "1.35",
    "Moo" => 0,
    "Test::Differences" => 0,
    "autodie" => 0,
    "perl" => "5.014",
    "strict" => 0,
    "warnings" => 0
  },
  "script_files" => [
    "bin/find-case-collisions"
  ],
  "test_requires" => {
    "File::Spec" => 0,

META.json  view on Meta::CPAN

            "Test::TrailingSpace" : "0.0203"
         }
      },
      "runtime" : {
         "requires" : {
            "File::Find::Object" : "0",
            "Getopt::Long" : "0",
            "JSON::MaybeXS" : "0",
            "List::Util" : "1.35",
            "Moo" : "0",
            "Test::Differences" : "0",
            "autodie" : "0",
            "perl" : "5.014",
            "strict" : "0",
            "warnings" : "0"
         }
      },
      "test" : {
         "requires" : {
            "File::Spec" : "0",
            "IO::Handle" : "0",

META.yml  view on Meta::CPAN

    version: v0.2.0
  Test::File::Find::CaseCollide:
    file: lib/Test/File/Find/CaseCollide.pm
    version: v0.2.0
requires:
  File::Find::Object: '0'
  Getopt::Long: '0'
  JSON::MaybeXS: '0'
  List::Util: '1.35'
  Moo: '0'
  Test::Differences: '0'
  autodie: '0'
  perl: '5.014'
  strict: '0'
  warnings: '0'
resources:
  bugtracker: https://github.com/shlomif/file-find-casecollide/issues
  homepage: http://metacpan.org/release/File-Find-CaseCollide
  repository: https://github.com/shlomif/perl-File-Find-CaseCollide.git
version: 0.2.0
x_Dist_Zilla:

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." );

t/obj.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;
use Test::More tests => 1;
use Test::Differences (qw( eq_or_diff ));
use File::Find::CaseCollide ();

my $obj     = File::Find::CaseCollide->new( { dir => '.' } );
my $results = $obj->find;

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