X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F14_filter.t;h=afb556c8a475d032c970547a4f1e08c064fd444f;hb=2a81bf9ee4b16d5e7e4f1e267b74cd0b79fa13a9;hp=aaf5005872169235a92077b7a23a9c848f5c37c2;hpb=075910edd08e4ee071dcf8b0abbde2ac00cc0daa;p=dbsrgits%2FDBM-Deep.git

diff --git a/t/14_filter.t b/t/14_filter.t
index aaf5005..afb556c 100644
--- a/t/14_filter.t
+++ b/t/14_filter.t
@@ -3,16 +3,15 @@
 ##
 use strict;
 use Test::More tests => 17;
+use File::Temp qw( tempfile tempdir );
 
 use_ok( 'DBM::Deep' );
 
-unlink "t/test.db";
+my $dir = tempdir( CLEANUP => 1 );
+my ($fh, $filename) = tempfile( 'tmpXXXX', UNLINK => 1, DIR => $dir );
 my $db = DBM::Deep->new(
-	file => "t/test.db",
+	file => $filename,
 );
-if ($db->error()) {
-	die "ERROR: " . $db->error();
-}
 
 ok( !$db->set_filter( 'floober', sub {} ), "floober isn't a value filter key" );