tests: use File::Temp->newdir instead of tempdir()

[public-inbox.git] / t / spamcheck_spamc.t

diff --git a/t/spamcheck_spamc.t b/t/spamcheck_spamc.t
index c13108f4c10318863e9649ddcd7e8a0137df29fe..a4a01a8b98ce929cfca434fa3b6cda84b68a2a65 100644 (file)
--- a/t/spamcheck_spamc.t
+++ b/t/spamcheck_spamc.t
@@ -5,9 +5,9 @@ use warnings;
 use Test::More;
 use Email::Simple;
 use IO::File;
-use File::Temp qw/tempdir/;
 use Fcntl qw(:DEFAULT SEEK_SET);
-my $tmpdir = tempdir('spamcheck_spamc-XXXXXX', TMPDIR => 1, CLEANUP => 1);
+require './t/common.perl';
+my ($tmpdir, $for_destroy) = tmpdir();
 
 use_ok 'PublicInbox::Spamcheck::Spamc';
 my $spamc = PublicInbox::Spamcheck::Spamc->new;