diff options
| author | Eric Wong <e@80x24.org> | 2019-11-24 00:22:34 +0000 |
|---|---|---|
| committer | Eric Wong <e@80x24.org> | 2019-11-24 21:46:55 +0000 |
| commit | ad6f26f3b9f0e428020d05667987556f8fcbec2f (patch) | |
| tree | 56a26871d3f63b3bc057a5ecb0c326d6c1dd3695 /t/psgi_scan_all.t | |
| parent | 2a3e3a0469f54f6a4f80bf04614e5ddd794a6c5e (diff) | |
| download | public-inbox-ad6f26f3b9f0e428020d05667987556f8fcbec2f.tar.gz | |
tests: use File::Temp->newdir instead of tempdir()
We'll also introduce a tmpdir() API to give tempdirs consistent names.
Diffstat (limited to 't/psgi_scan_all.t')
| -rw-r--r-- | t/psgi_scan_all.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/psgi_scan_all.t b/t/psgi_scan_all.t index 707807a7..5d4cc263 100644 --- a/t/psgi_scan_all.t +++ b/t/psgi_scan_all.t @@ -4,8 +4,8 @@ use strict; use warnings; use Test::More; use Email::MIME; -use File::Temp qw/tempdir/; use PublicInbox::Config; +require './t/common.perl'; my @mods = qw(HTTP::Request::Common Plack::Test URI::Escape DBD::SQLite); foreach my $mod (@mods) { eval "require $mod"; @@ -13,7 +13,7 @@ foreach my $mod (@mods) { } use_ok 'PublicInbox::V2Writable'; foreach my $mod (@mods) { use_ok $mod; } -my $tmp = tempdir('pi-scan_all-XXXXXX', TMPDIR => 1, CLEANUP => 1); +my ($tmp, $for_destroy) = tmpdir(); my $cfg = ''; foreach my $i (1..2) { |