1#!./perl 2 3BEGIN { 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 13use Test::More tests => 7; 14 15BEGIN { 16 use_ok('File::Glob', qw(:glob csh_glob)); 17} 18 19my $pat = "op/G*.t"; 20 21import File::Glob ':nocase'; 22@a = csh_glob($pat); 23cmp_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 26import File::Glob ':case'; 27@a = csh_glob($pat); 28is(scalar @a, 0, 'None should be uppercase'); 29 30@a = bsd_glob($pat, GLOB_NOCASE); 31cmp_ok(scalar @a, '>=', 3, 'explicit use of the GLOB_NOCASE flag'); 32 33# Test Win32 backslash nastiness... 34SKIP: { 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} 46