diff options
Diffstat (limited to 't/common.perl')
| -rw-r--r-- | t/common.perl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/t/common.perl b/t/common.perl index 2126a761..0ff5de4a 100644 --- a/t/common.perl +++ b/t/common.perl @@ -7,6 +7,16 @@ use strict; use warnings; use IO::Socket::INET; +sub tmpdir (;$) { + my ($base) = @_; + require File::Temp; + unless (defined $base) { + ($base) = ($0 =~ m!\b([^/]+)\.[^\.]+\z!); + } + my $tmpdir = File::Temp->newdir("pi-$base-$$-XXXXXX", TMPDIR => 1); + ($tmpdir->dirname, $tmpdir); +} + sub tcp_server () { IO::Socket::INET->new( LocalAddr => '127.0.0.1', |