This should make identifiying leftover directories
due to SIGKILL-ed tests easier.
13 files changed:
use constant CGI => "blib/script/public-inbox.cgi";
my $mda = "blib/script/public-inbox-mda";
my $index = "blib/script/public-inbox-index";
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";
my $home = "$tmpdir/pi-home";
my $pi_home = "$home/.public-inbox";
my $pi_config = "$pi_home/config";
use Test::More;
use PublicInbox::Config;
use File::Temp qw/tempdir/;
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");
{
is(system(qw(git init -q --bare), $tmpdir), 0, "git init successful");
stream_to_string(PublicInbox::Feed::generate($_[0]));
}
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";
{
my $git_dir = "$tmpdir/gittest";
{
use warnings;
use Test::More;
use File::Temp qw/tempdir/;
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';
use Cwd qw/getcwd/;
use_ok 'PublicInbox::Git';
use Email::Simple;
use PublicInbox::Feed;
use File::Temp qw/tempdir/;
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
my $git_dir = "$tmpdir/gittest";
# setup
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);
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";
my $fifo = "$tmpdir/fifo";
ok(defined mkfifo($fifo, 0777), 'created FIFO');
my $err = "$tmpdir/stderr.log";
use IPC::Run;
# FIXME: too much setup
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";
my $home = "$tmpdir/pi-home";
my $err = "$tmpdir/stderr.log";
my $out = "$tmpdir/stdout.log";
use Test::More;
use PublicInbox::Config;
use File::Temp qw/tempdir/;
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';
{
use constant pi_init => 'blib/script/public-inbox-init';
{
my $mda = "blib/script/public-inbox-mda";
my $learn = "blib/script/public-inbox-learn";
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";
my $home = "$tmpdir/pi-home";
my $pi_home = "$home/.public-inbox";
my $pi_config = "$pi_home/config";
}
use_ok 'PublicInbox::Msgmap';
}
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;
my $d = PublicInbox::Msgmap->new($tmpdir, 1);
my %mid2num;
use Net::NNTP;
use IPC::Run qw(run);
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";
my $home = "$tmpdir/pi-home";
my $err = "$tmpdir/stderr.log";
my $out = "$tmpdir/stdout.log";
use IPC::Run qw/run/;
my $psgi = "examples/public-inbox.psgi";
my $mda = "blib/script/public-inbox-mda";
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";
my $home = "$tmpdir/pi-home";
my $pi_home = "$home/.public-inbox";
my $pi_config = "$pi_home/config";
plan skip_all => "Xapian missing for search" if $@;
use File::Temp qw/tempdir/;
use Email::MIME;
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);
my $git_dir = "$tmpdir/a.git";
my ($root_id, $last_id);