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/replace.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/replace.t')
| -rw-r--r-- | t/replace.t | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/t/replace.t b/t/replace.t index 24f7537c..039c6bc6 100644 --- a/t/replace.t +++ b/t/replace.t @@ -5,7 +5,6 @@ use warnings; use Test::More; use PublicInbox::MIME; use PublicInbox::InboxWritable; -use File::Temp qw/tempdir/; require './t/common.perl'; require_git(2.6); # replace is v2 only, for now... foreach my $mod (qw(DBD::SQLite)) { @@ -17,7 +16,7 @@ sub test_replace ($$$) { my ($v, $level, $opt) = @_; diag "v$v $level replace"; my $this = "pi-$v-$level-replace"; - my $tmpdir = tempdir("$this-tmp-XXXXXX", TMPDIR => 1, CLEANUP => 1); + my ($tmpdir, $for_destroy) = tmpdir($this); my $ibx = PublicInbox::Inbox->new({ inboxdir => "$tmpdir/testbox", name => $this, |