#!/usr/bin/perl -w -I.
# try to honor possible tempdirs
$tmp = $ENV{'TMPDIR'} || $ENV{'TMP'} || $ENV{'TEMP'} || "/tmp";
$tmp .= "/rdt$$";
use File::Slurp;
print "1..4\n";
mkdir($tmp, 0700) || die "mkdir $tmp: $!";
@y = read_dir($tmp);
if (@y == 0) {print "ok 1\n";} else {print "not ok 1\n"}
&write_file("$tmp/x", "foo\n");
@y = read_dir($tmp);
if (@y == 1) {print "ok 2\n";} else {print "not ok 2\n"}
if ($y[0] eq 'x') {print "ok 3\n";} else {print "not ok 3\n"}
@x = sort ( 'x', 1..23 );
for $x (@x) {
&write_file("$tmp/$x", "foo\n");
}
@y = sort &read_dir($tmp);
while (@x && @y) {
last unless $x[0] eq $y[0];
shift @x;
shift @y;
}
if (@x == @y) { print "ok 4\n";} else {print "not ok 4\n"}
for $x ( 'x', 1..23 ) {
unlink("$tmp/$x");
}
rmdir($tmp) || die "rmdir $tmp: $!";