diff options
author | Eric Wong <e@80x24.org> | 2016-03-03 09:07:40 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2016-03-03 09:07:51 +0000 |
commit | 5cddfa50765d59157e15488c235fe01202db0972 (patch) | |
tree | 87d0c30c70a3c2b0d46eac057f0f84c07ddf3a62 | |
parent | e6b8bee29611b86b5672b8b48ecf7fcd86ea41fd (diff) | |
download | public-inbox-5cddfa50765d59157e15488c235fe01202db0972.tar.gz |
This should make identifiying leftover directories due to SIGKILL-ed tests easier.
-rw-r--r-- | t/cgi.t | 2 | ||||
-rw-r--r-- | t/config.t | 2 | ||||
-rw-r--r-- | t/feed.t | 2 | ||||
-rw-r--r-- | t/git.t | 2 | ||||
-rw-r--r-- | t/html_index.t | 2 | ||||
-rw-r--r-- | t/httpd-corner.t | 2 | ||||
-rw-r--r-- | t/httpd.t | 2 | ||||
-rw-r--r-- | t/init.t | 2 | ||||
-rw-r--r-- | t/mda.t | 2 | ||||
-rw-r--r-- | t/msgmap.t | 2 | ||||
-rw-r--r-- | t/nntpd.t | 2 | ||||
-rw-r--r-- | t/plack.t | 2 | ||||
-rw-r--r-- | t/search.t | 2 |
13 files changed, 13 insertions, 13 deletions
@@ -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"; @@ -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"); @@ -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"; { @@ -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 50f5ae5e..adbadaf4 100644 --- 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 40692086..e73ebd5e 100644 --- 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"; @@ -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"; @@ -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'; { @@ -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"; @@ -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; @@ -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"; @@ -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"; @@ -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); |