X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F15_digest.t;h=22cca87caf93e052480e1c9fcc7f4e6ddeb7c741;hb=fde3db1a5e4879bebec5ca8051caa2804d1a826e;hp=10c9329d8b05411718232cd1bafb74e6a7913909;hpb=4bbc0724a5ad0fa2d112e1858b30be03f19cf015;p=dbsrgits%2FDBM-Deep.git diff --git a/t/15_digest.t b/t/15_digest.t index 10c9329..22cca87 100644 --- a/t/15_digest.t +++ b/t/15_digest.t @@ -3,14 +3,11 @@ ## use strict; use Test::More tests => 14; -use File::Temp qw( tempfile tempdir ); -use Fcntl qw( :flock ); +use t::common qw( new_fh ); use_ok( 'DBM::Deep' ); -my $dir = tempdir( CLEANUP => 1 ); -my ($fh, $filename) = tempfile( 'tmpXXXX', UNLINK => 1, DIR => $dir ); -flock $fh, LOCK_UN; +my ($fh, $filename) = new_fh(); my $salt = 38473827;