[PATCH 3/3] t/*: use identifiable tempdir names

[Eric Wong <e@80x24.org>]

This helps the admin nuke stuff in case our tests
are SIGKILL-ed or killed during teardown.
---
 t/all.t             | 6 +++---
 t/extractor.t       | 4 ++--
 t/git.t             | 2 +-
 t/mda-badheaders.t  | 2 +-
 t/mda-conflict.t    | 2 +-
 t/mda-missing-mid.t | 2 +-
 t/remover.t         | 2 +-
 7 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/t/all.t b/t/all.t
index 8bed302..d5680de 100644
--- a/t/all.t
+++ b/t/all.t
@@ -4,13 +4,13 @@
 use strict;
 use warnings;
 use Test::More;
+use File::Temp qw/tempdir/;
+use Email::Simple;
 # test all command-line interfaces at once
 my $mda = "blib/script/ssoma-mda";
 my $cli = "blib/script/ssoma";
 my $rm = "blib/script/ssoma-rm";
-my $tmp = tempdir(CLEANUP => 1);
-use File::Temp qw/tempdir/;
-use Email::Simple;
+my $tmp = tempdir('ssoma-all-XXXXXX', CLEANUP => 1);
 my $have_ipc_run = eval {
 	require IPC::Run;
 	import IPC::Run qw/run/;
diff --git a/t/extractor.t b/t/extractor.t
index 154e666..d2c0119 100644
--- a/t/extractor.t
+++ b/t/extractor.t
@@ -9,8 +9,8 @@ use Ssoma::Git;
 use Ssoma::MDA;
 use File::Temp qw/tempdir/;
 
-my $mdadir = tempdir(CLEANUP => 1);
-my $outdir = tempdir(CLEANUP => 1);
+my $mdadir = tempdir('ssoma-extractor-mda-XXXXXX', CLEANUP => 1);
+my $outdir = tempdir('ssoma-extractor-out-XXXXXX', CLEANUP => 1);
 
 my $outgit = Ssoma::Git->new("$outdir/git");
 my $ex = Ssoma::Extractor->new($outgit);
diff --git a/t/git.t b/t/git.t
index 3af517b..1588112 100644
--- a/t/git.t
+++ b/t/git.t
@@ -7,7 +7,7 @@ use Test::More;
 use Ssoma::Git;
 use Ssoma::GitIndexInfo;
 use File::Temp qw/tempdir/;
-my $tmpdir = tempdir(CLEANUP => 1);
+my $tmpdir = tempdir('ssoma-git-XXXXXX', CLEANUP => 1);
 my $git = Ssoma::Git->new("$tmpdir/gittest");
 
 $git->init_db('-q');
diff --git a/t/mda-badheaders.t b/t/mda-badheaders.t
index d25c1e1..00d1495 100644
--- a/t/mda-badheaders.t
+++ b/t/mda-badheaders.t
@@ -10,7 +10,7 @@ use Email::Simple;
 use Digest::SHA qw/sha1_hex/;
 use File::Temp qw/tempdir/;
 
-my $tmpdir = tempdir(CLEANUP => 1);
+my $tmpdir = tempdir('ssoma-mda-badheaders-XXXXXX', CLEANUP => 1);
 my $git = Ssoma::Git->new("$tmpdir/gittest");
 $git->init_db('-q');
 my $mda = Ssoma::MDA->new($git);
diff --git a/t/mda-conflict.t b/t/mda-conflict.t
index 5d3cd6a..2f77be3 100644
--- a/t/mda-conflict.t
+++ b/t/mda-conflict.t
@@ -10,7 +10,7 @@ use Email::Simple;
 use Digest::SHA qw/sha1_hex/;
 use File::Temp qw/tempdir/;
 
-my $tmpdir = tempdir(CLEANUP => 1);
+my $tmpdir = tempdir('ssoma-mda-conflict-XXXXXX', CLEANUP => 1);
 my $git = Ssoma::Git->new("$tmpdir/gittest");
 $git->init_db('-q');
 my $mda = Ssoma::MDA->new($git);
diff --git a/t/mda-missing-mid.t b/t/mda-missing-mid.t
index b87a603..21a3540 100644
--- a/t/mda-missing-mid.t
+++ b/t/mda-missing-mid.t
@@ -8,7 +8,7 @@ use Ssoma::MDA;
 use Ssoma::Git;
 use Email::Simple;
 use File::Temp qw/tempdir/;
-my $tmpdir = tempdir(CLEANUP => 1);
+my $tmpdir = tempdir('ssoma-mda-missing-mid-XXXXXX', CLEANUP => 1);
 my $git = Ssoma::Git->new("$tmpdir/gittest");
 $git->init_db('-q');
 my $mda = Ssoma::MDA->new($git);
diff --git a/t/remover.t b/t/remover.t
index 9ddb7ff..d30f91d 100644
--- a/t/remover.t
+++ b/t/remover.t
@@ -11,7 +11,7 @@ use Email::Simple;
 use Digest::SHA qw/sha1_hex/;
 use File::Temp qw/tempdir/;
 
-my $tmpdir = tempdir(CLEANUP => 1);
+my $tmpdir = tempdir('ssoma-remover-XXXXXX', CLEANUP => 1);
 my $git_dir = "$tmpdir/gittest";
 my $git = Ssoma::Git->new($git_dir);
 $git->init_db('-q');
-- 
EW