t/*.t: use identifiable tempdir names

This should make identifiying leftover directories
due to SIGKILL-ed tests easier.

diff --git a/t/cgi.t b/t/cgi.t
index ebf141604beedaa0d2ecd75b2fac827b91061ff8..f1a2730c6d799d27bd476d4467f2773d7c6818b4 100644 (file)
--- a/t/cgi.t
+++ b/t/cgi.t
@@ -11,7 +11,7 @@ use IPC::Run qw/run/;
 use constant CGI => "blib/script/public-inbox.cgi";
 my $mda = "blib/script/public-inbox-mda";
 my $index = "blib/script/public-inbox-index";
-my $tmpdir = tempdir(CLEANUP => 1);
+my $tmpdir = tempdir('pi-cgi-XXXXXX', TMPDIR => 1, CLEANUP => 1);
 my $home = "$tmpdir/pi-home";
 my $pi_home = "$home/.public-inbox";
 my $pi_config = "$pi_home/config";

diff --git a/t/config.t b/t/config.t
index 88ed62a4c05f55e509f96e6fff846a3f29691ab0..48df08716c654fac0f3ca5852e739a85fd41b683 100644 (file)
--- a/t/config.t
+++ b/t/config.t
@@ -5,7 +5,7 @@ use warnings;
 use Test::More;
 use PublicInbox::Config;
 use File::Temp qw/tempdir/;
-my $tmpdir = tempdir(CLEANUP => 1);
+my $tmpdir = tempdir('pi-config-XXXXXX', TMPDIR => 1, CLEANUP => 1);
 
 {
        is(system(qw(git init -q --bare), $tmpdir), 0, "git init successful");

diff --git a/t/feed.t b/t/feed.t
index 71cbb7356e7287b6b304330b70b15c6feec8b27c..73b7d0bb2382e0c59d3bc5a98cd3c819cfc956dc 100644 (file)
--- a/t/feed.t
+++ b/t/feed.t
@@ -15,7 +15,7 @@ sub string_feed {
        stream_to_string(PublicInbox::Feed::generate($_[0]));
 }
 
-my $tmpdir = tempdir(CLEANUP => 1);
+my $tmpdir = tempdir('pi-feed-XXXXXX', TMPDIR => 1, CLEANUP => 1);
 my $git_dir = "$tmpdir/gittest";
 
 {

diff --git a/t/git.t b/t/git.t
index 19fbef157addd704f5c59081c23ad3fea201b2f2..0f3dbae3fec4ca768e2f93c147cd6e12e97dfd2c 100644 (file)
--- a/t/git.t
+++ b/t/git.t
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 use Test::More;
 use File::Temp qw/tempdir/;
-my $dir = tempdir(CLEANUP => 1);
+my $dir = tempdir('pi-git-XXXXXX', TMPDIR => 1, CLEANUP => 1);
 use Cwd qw/getcwd/;
 
 use_ok 'PublicInbox::Git';

diff --git a/t/html_index.t b/t/html_index.t
index 50f5ae5eeffc9628e7e31bba283f11de67ea599d..adbadaf4ca087f858a03548556d771d67c7d337c 100644 (file)
--- a/t/html_index.t
+++ b/t/html_index.t
@@ -6,7 +6,7 @@ use Test::More;
 use Email::Simple;
 use PublicInbox::Feed;
 use File::Temp qw/tempdir/;
-my $tmpdir = tempdir(CLEANUP => 1);
+my $tmpdir = tempdir('pi-http-XXXXXX', TMPDIR => 1, CLEANUP => 1);
 my $git_dir = "$tmpdir/gittest";
 
 # setup

diff --git a/t/httpd-corner.t b/t/httpd-corner.t
index 40692086ad7cb8218e6d9d735f85843e76e89f67..e73ebd5e05ec3473330008682760ca6d052d853a 100644 (file)
--- a/t/httpd-corner.t
+++ b/t/httpd-corner.t
@@ -19,7 +19,7 @@ use IO::Socket;
 use Fcntl qw(FD_CLOEXEC F_SETFD F_GETFD :seek);
 use Socket qw(SO_KEEPALIVE IPPROTO_TCP TCP_NODELAY);
 use POSIX qw(dup2 mkfifo :sys_wait_h);
-my $tmpdir = tempdir(CLEANUP => 1);
+my $tmpdir = tempdir('httpd-corner-XXXXXX', TMPDIR => 1, CLEANUP => 1);
 my $fifo = "$tmpdir/fifo";
 ok(defined mkfifo($fifo, 0777), 'created FIFO');
 my $err = "$tmpdir/stderr.log";

diff --git a/t/httpd.t b/t/httpd.t
index ad636fc10316aed5adaaaa2ecde4157a53376947..25b4f4181db7f0cafb7f52b0cb99b689388513a2 100644 (file)
--- a/t/httpd.t
+++ b/t/httpd.t
@@ -17,7 +17,7 @@ use Socket qw(SO_KEEPALIVE IPPROTO_TCP TCP_NODELAY);
 use IPC::Run;
 
 # FIXME: too much setup
-my $tmpdir = tempdir(CLEANUP => 1);
+my $tmpdir = tempdir('pi-httpd-XXXXXX', TMPDIR => 1, CLEANUP => 1);
 my $home = "$tmpdir/pi-home";
 my $err = "$tmpdir/stderr.log";
 my $out = "$tmpdir/stdout.log";

diff --git a/t/init.t b/t/init.t
index 8989557cb7cec5a128863bbef6e29bb676d31ce2..b78fbaf5e5a78d15b946a03290c10327aed6f731 100644 (file)
--- a/t/init.t
+++ b/t/init.t
@@ -5,7 +5,7 @@ use warnings;
 use Test::More;
 use PublicInbox::Config;
 use File::Temp qw/tempdir/;
-my $tmpdir = tempdir(CLEANUP => 1);
+my $tmpdir = tempdir('pi-init-XXXXXX', TMPDIR => 1, CLEANUP => 1);
 use constant pi_init => 'blib/script/public-inbox-init';
 
 {

diff --git a/t/mda.t b/t/mda.t
index a8e78b38e6a6311edfd934e7dc587649b459d2f8..03bad8715876f40ac8d85e64af7e9c7be9938749 100644 (file)
--- a/t/mda.t
+++ b/t/mda.t
@@ -11,7 +11,7 @@ use IPC::Run qw(run);
 
 my $mda = "blib/script/public-inbox-mda";
 my $learn = "blib/script/public-inbox-learn";
-my $tmpdir = tempdir(CLEANUP => 1);
+my $tmpdir = tempdir('pi-mda-XXXXXX', TMPDIR => 1, CLEANUP => 1);
 my $home = "$tmpdir/pi-home";
 my $pi_home = "$home/.public-inbox";
 my $pi_config = "$pi_home/config";

diff --git a/t/msgmap.t b/t/msgmap.t
index 6a4f4f84247190a3f7f83f240d109ac2e8741a89..5c28e54df7542b7031081e5a37cecfa803a68c05 100644 (file)
--- a/t/msgmap.t
+++ b/t/msgmap.t
@@ -11,7 +11,7 @@ foreach my $mod (qw(DBD::SQLite)) {
 }
 
 use_ok 'PublicInbox::Msgmap';
-my $tmpdir = tempdir(CLEANUP => 1);
+my $tmpdir = tempdir('pi-msgmap-XXXXXX', TMPDIR => 1, CLEANUP => 1);
 my $d = PublicInbox::Msgmap->new($tmpdir, 1);
 
 my %mid2num;

diff --git a/t/nntpd.t b/t/nntpd.t
index d8c2e7b305f4563aefea6e3ab32885a51c89c1b5..d597855b6fd49bef7687b439e86028af63864acb 100644 (file)
--- a/t/nntpd.t
+++ b/t/nntpd.t
@@ -18,7 +18,7 @@ use File::Temp qw/tempdir/;
 use Net::NNTP;
 use IPC::Run qw(run);
 
-my $tmpdir = tempdir(CLEANUP => 1);
+my $tmpdir = tempdir('pi-nntpd-XXXXXX', TMPDIR => 1, CLEANUP => 1);
 my $home = "$tmpdir/pi-home";
 my $err = "$tmpdir/stderr.log";
 my $out = "$tmpdir/stdout.log";

diff --git a/t/plack.t b/t/plack.t
index b77cdba552c516ecaabe3b757d8f732ea75b5865..568f09f00f4ac5c21d075bbd09002cf4a74bae11 100644 (file)
--- a/t/plack.t
+++ b/t/plack.t
@@ -9,7 +9,7 @@ use Cwd;
 use IPC::Run qw/run/;
 my $psgi = "examples/public-inbox.psgi";
 my $mda = "blib/script/public-inbox-mda";
-my $tmpdir = tempdir(CLEANUP => 1);
+my $tmpdir = tempdir('pi-plack-XXXXXX', TMPDIR => 1, CLEANUP => 1);
 my $home = "$tmpdir/pi-home";
 my $pi_home = "$home/.public-inbox";
 my $pi_config = "$pi_home/config";

diff --git a/t/search.t b/t/search.t
index df5a5d36bf8d772af946fd5fd62ebb3d41f6f9d0..bbf1a89f86d382a5a066ee0b3a6c1500ebe584b4 100644 (file)
--- a/t/search.t
+++ b/t/search.t
@@ -7,7 +7,7 @@ eval { require PublicInbox::SearchIdx; };
 plan skip_all => "Xapian missing for search" if $@;
 use File::Temp qw/tempdir/;
 use Email::MIME;
-my $tmpdir = tempdir(CLEANUP => 1);
+my $tmpdir = tempdir('pi-search-XXXXXX', TMPDIR => 1, CLEANUP => 1);
 my $git_dir = "$tmpdir/a.git";
 my ($root_id, $last_id);