global.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
} else {
}
print "1..0\n";
exit 0;
}
print "1..10\n";
}
END {
}
BEGIN {
}
BEGIN {
die <<EOMessage;
Your version of perl ($]) doesn't seem to allow extensions to override
the core glob operator.
EOMessage
}
}
$loaded = 1;
print "ok 1\n";
my @r = glob;
print "ok 2\n";
print "# |@r|\nnot " if @r < 3;
print "ok 3\n";
# check if <*/*> works
@r = <:*:*.t>;
} else {
@r = <*/*.t>;
}
print "not " if @r < 3;
print "ok 4\n";
my $r = scalar @r;
# check if scalar context works
@r = ();
#print "# $_\n";
push @r, $_;
}
} else {
#print "# $_\n";
push @r, $_;
}
}
print "not " if @r != $r;
print "ok 5\n";
# check if list context works
@r = ();
for (<:*:*.t>) {
#print "# $_\n";
push @r, $_;
}
} else {
for (<*/*.t>) {
#print "# $_\n";
push @r, $_;
}
}
print "not " if @r != $r;
print "ok 6\n";
# test if implicit assign to $_ in while() works
@r = ();
while (<:*:*.t>) {
#print "# $_\n";
push @r, $_;
}
} else {
while (<*/*.t>) {
#print "# $_\n";
push @r, $_;
}
}
print "not " if @r != $r;
print "ok 7\n";
# test if explicit glob() gets assign magic too
my @s = ();
#print "# $_\n";
push @s, $_;
}
print "ok 8\n";
# how about in a different package, like?
@s = ();
#print "# $_\n";
push @s, $_;
}
print "ok 9\n";
# test if different glob ops maintain independent contexts
@s = ();
my $i = 0;
while (<:*:*.t>) {
#print "# $_ <";
push @s, $_;
#print " $_";
$i++;
}
#print " >\n";
}
} else {
while (<*/*.t>) {
#print "# $_ <";
push @s, $_;
#print " $_";
$i++;
}
#print " >\n";
}
}
print "ok 10\n";