#!/usr/bin/env perl
use strict;
use warnings;
use autodie;

use Test::More tests => 2;
use File::Glob qw( :globally :nocase);
use Path::Tiny;

open my $foo, '>', '/tmp/MisterPerl';
print $foo "Yeah!\n";
close $foo;

my (@f) = glob ('/tmp/misterper[l]');
is $f[0], '/tmp/MisterPerl', 'File found case-insensitively with File::Glob';

@f = path ('/tmp')->children (qr/^misterperl/i);
is $f[0], '/tmp/MisterPerl', 'File found case-insensitively with Path::Tiny';