io_dir.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
}
print "1..0\n";
exit 0;
}
}
select(STDERR); $| = 1;
select(STDOUT); $| = 1;
print "1..10\n";
@a = sort <*>;
# I hope we do not have an empty dir :-)
? "ok" : "not ok", " 7\n";
print -f 'X' ? "ok" : "not ok", " 8\n";
? "ok" : "not ok", " 9\n";
print -f 'X' ? "not ok" : "ok", " 10\n";