10 use Fcntl qw( :flock );
12 use base 'Test::Class';
16 sub setup_dir : Test(startup) {
19 $self->{workdir} ||= File::Temp::tempdir();
29 my ($fh, $filename) = File::Temp::tempfile(
30 'tmpXXXX', DIR => $self->{workdir}, CLEANUP => 1,
32 flock( $fh, LOCK_UN );
37 sub remove_dir : Test(shutdown) {
40 File::Path::rmtree( $self->{workdir} );