This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Convert all File::Glob tests to Test::More.
[perl5.git] / ext / File-Glob / t / case.t
1 #!./perl
2
3 BEGIN {
4     chdir 't' if -d 't';
5     @INC = '../lib';
6     require Config; import Config;
7     if ($Config{'extensions'} !~ /\bFile\/Glob\b/i) {
8         print "1..0\n";
9         exit 0;
10     }
11 }
12
13 use Test::More tests => 7;
14
15 BEGIN {
16     use_ok('File::Glob', qw(:glob csh_glob));
17 }
18
19 my $pat = "op/G*.t";
20
21 import File::Glob ':nocase';
22 @a = csh_glob($pat);
23 cmp_ok(scalar @a, '>=', 8, 'use of the case sensitivity tags, via csh_glob()');
24
25 # This may fail on systems which are not case-PRESERVING
26 import File::Glob ':case';
27 @a = csh_glob($pat);
28 is(scalar @a, 0, 'None should be uppercase');
29
30 @a = bsd_glob($pat, GLOB_NOCASE);
31 cmp_ok(scalar @a, '>=', 3, 'explicit use of the GLOB_NOCASE flag');
32
33 # Test Win32 backslash nastiness...
34 SKIP: {
35     skip 'Not Win32 or NetWare', 3 unless $^O eq 'MSWin32' || $^O eq 'NetWare';
36
37     @a = File::Glob::glob("op\\g*.t");
38     cmp_ok(scalar @a, '>=', 8);
39     mkdir "[]", 0;
40     @a = File::Glob::glob("\\[\\]", GLOB_QUOTE);
41     rmdir "[]";
42     is(scalar @a, 1);
43     @a = bsd_glob("op\\*", GLOB_QUOTE);
44     isnt(scalar @a, 0);
45 }