8 use Fcntl qw( :flock );
13 use base 'Test::Class';
17 sub setup_db : Test(startup) {
20 my $data = ($self->{data} ||= {});
22 my $r = Scalar::Util::reftype( $data );
23 my $type = $r eq 'HASH' ? DBM::Deep->TYPE_HASH : DBM::Deep->TYPE_ARRAY;
25 $self->{db} = DBM::Deep->new({
26 file => $self->new_file,
33 sub setup_dir : Test(startup) {
36 $self->{workdir} ||= File::Temp::tempdir();
46 my ($fh, $filename) = File::Temp::tempfile(
47 'tmpXXXX', DIR => $self->{workdir}, CLEANUP => 1,
49 flock( $fh, LOCK_UN );
54 sub remove_dir : Test(shutdown) {
57 File::Path::rmtree( $self->{workdir} );