Parallel unsafe tests in ext/IO/t/io_dir.t

There appear to be some parallel unsafe tests in ext/IO/t/io_dir.t:

Test 2 and 3:

@a = sort <*>;
do { $first = $dot->read } while defined($first) && $first =~ /^\./;
ok(+(grep { $_ eq $first } @a));

@b = sort($first, (grep {/^[^.]/} $dot->read));
ok(+(join("\0", @a) eq join("\0", @b)))

It compares the list of files returned by <*> with the list of files  
returned by $dot->read (with $dot = new IO::Dir $DIR;)

This test is not parallel safe since other tests can (and do) create  
files and/or directories in t/.


What would be the best way to change the test?
Should it do a chdir to ../ext/IO/t before running the test? Or...?


Kind regards,

Bram

• Parallel unsafe tests in ext/IO/t/io_dir.t by Bram
• Re: Parallel unsafe tests in ext/IO/t/io_dir.t by Rafael Garcia-Suarez