This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
allow Configure -S to run non-interactively (spotted by Greg Hudson
[perl5.git] / t / lib / glob-basic.t
CommitLineData
72b16652
GS
1#!./perl
2
3BEGIN {
4 chdir 't' if -d 't';
5 unshift @INC, '../lib';
d2a01882
GS
6 require Config; import Config;
7 if ($Config{'extensions'} !~ /\bFile\/Glob\b/i) {
8 print "1..0\n";
9 exit 0;
10 }
72b16652
GS
11 print "1..9\n";
12}
13END {
14 print "not ok 1\n" unless $loaded;
15}
16use File::Glob ':glob';
a4cf958a 17use Cwd ();
72b16652
GS
18$loaded = 1;
19print "ok 1\n";
20
21sub array {
22 return '(', join(", ", map {defined $_ ? "\"$_\"" : "undef"} @a), ")\n";
23}
24
25# look for the contents of the current directory
26$ENV{PATH} = "/bin";
27delete @ENV{BASH_ENV, CDPATH, ENV, IFS};
28@correct = ();
29if (opendir(D, ".")) {
94a371ee 30 @correct = grep { !/^\./ } sort readdir(D);
72b16652
GS
31 closedir D;
32}
33@a = File::Glob::glob("*", 0);
34@a = sort @a;
35if ("@a" ne "@correct" || GLOB_ERROR) {
36 print "# |@a| ne |@correct|\nnot ";
37}
38print "ok 2\n";
39
40# look up the user's home directory
41# should return a list with one item, and not set ERROR
3eba041e 42if ($^O ne 'MSWin32' && $^O ne 'VMS') {
0eb4ebd7 43 eval {
72b16652 44 ($name, $home) = (getpwuid($>))[0,7];
0eb4ebd7
GS
45 1;
46 } and do {
72b16652
GS
47 @a = File::Glob::glob("~$name", GLOB_TILDE);
48 if (scalar(@a) != 1 || $a[0] ne $home || GLOB_ERROR) {
49 print "not ";
50 }
0eb4ebd7 51 };
72b16652
GS
52}
53print "ok 3\n";
54
55# check backslashing
56# should return a list with one item, and not set ERROR
57@a = File::Glob::glob('TEST', GLOB_QUOTE);
58if (scalar @a != 1 || $a[0] ne 'TEST' || GLOB_ERROR) {
59 local $/ = "][";
60 print "# [@a]\n";
61 print "not ";
62}
63print "ok 4\n";
64
65# check nonexistent checks
66# should return an empty list
67# XXX since errfunc is NULL on win32, this test is not valid there
68@a = File::Glob::glob("asdfasdf", 0);
69if ($^O ne 'MSWin32' and scalar @a != 0) {
70 print "# |@a|\nnot ";
71}
72print "ok 5\n";
73
74# check bad protections
75# should return an empty list, and set ERROR
a4cf958a
GS
76if ($^O eq 'mpeix' or $^O eq 'MSWin32' or $^O eq 'os2' or $^O eq 'VMS'
77 or $^O eq 'cygwin' or Cwd::cwd() =~ m#^/afs#s or not $>)
78{
1cf742e9
GS
79 print "ok 6 # skipped\n";
80}
81else {
82 $dir = "PtEeRsLt.dir";
83 mkdir $dir, 0;
84 @a = File::Glob::glob("$dir/*", GLOB_ERR);
85 #print "\@a = ", array(@a);
86 rmdir $dir;
87 if (scalar(@a) != 0 || GLOB_ERROR == 0) {
88 print "not ";
89 }
90 print "ok 6\n";
72b16652 91}
72b16652
GS
92
93# check for csh style globbing
94@a = File::Glob::glob('{a,b}', GLOB_BRACE | GLOB_NOMAGIC);
95unless (@a == 2 and $a[0] eq 'a' and $a[1] eq 'b') {
96 print "not ";
97}
98print "ok 7\n";
99
100@a = File::Glob::glob(
101 '{TES*,doesntexist*,a,b}',
3eba041e 102 GLOB_BRACE | GLOB_NOMAGIC | ($^O eq 'VMS' ? GLOB_NOCASE : 0)
72b16652
GS
103);
104unless (@a == 3
f0963acb 105 and $a[0] eq ($^O eq 'VMS'? 'test.' : 'TEST')
72b16652
GS
106 and $a[1] eq 'a'
107 and $a[2] eq 'b')
108{
109 print "not ";
110}
111print "ok 8\n";
112
113# "~" should expand to $ENV{HOME}
114$ENV{HOME} = "sweet home";
115@a = File::Glob::glob('~', GLOB_TILDE | GLOB_NOMAGIC);
116unless (@a == 1 and $a[0] eq $ENV{HOME}) {
117 print "not ";
118}
119print "ok 9\n";