1N/A#!./perl
1N/A
1N/ABEGIN {
1N/A chdir 't' if -d 't';
1N/A @INC = '../lib';
1N/A require Config; import Config;
1N/A if (not $Config{'d_readdir'}) {
1N/A print "1..0\n";
1N/A exit 0;
1N/A }
1N/A}
1N/A
1N/Ause DirHandle;
1N/Arequire './test.pl';
1N/A
1N/Aplan(5);
1N/A
1N/A$dot = new DirHandle ($^O eq 'MacOS' ? ':' : '.');
1N/A
1N/Aok(defined($dot));
1N/A
1N/A@a = sort <*>;
1N/Ado { $first = $dot->read } while defined($first) && $first =~ /^\./;
1N/Aok(+(grep { $_ eq $first } @a));
1N/A
1N/A@b = sort($first, (grep {/^[^.]/} $dot->read));
1N/Aok(+(join("\0", @a) eq join("\0", @b)));
1N/A
1N/A$dot->rewind;
1N/A@c = sort grep {/^[^.]/} $dot->read;
1N/Acmp_ok(+(join("\0", @b), 'eq', join("\0", @c)));
1N/A
1N/A$dot->close;
1N/A$dot->rewind;
1N/Aok(!defined($dot->read));