autotest: create the temp dir in $TEMP
on modern systems, this makes it likely to end up on tmpfs, which is a lot faster and ssd-friendlier. the symlink is not deleted at the end, to minimize fs churn. that means it will be dangling after a reboot, which gets fixed in the next run.
This commit is contained in:
parent
5fee222f84
commit
ef2caa074e
|
@ -20,11 +20,16 @@ use warnings;
|
||||||
use strict;
|
use strict;
|
||||||
use Cwd;
|
use Cwd;
|
||||||
use File::Path;
|
use File::Path;
|
||||||
|
use File::Temp 'tempdir';
|
||||||
|
|
||||||
my $use_vg = $ENV{USE_VALGRIND};
|
my $use_vg = $ENV{USE_VALGRIND};
|
||||||
my $mbsync = getcwd()."/mbsync";
|
my $mbsync = getcwd()."/mbsync";
|
||||||
|
|
||||||
-d "tmp" or mkdir "tmp";
|
if (!-d "tmp") {
|
||||||
|
unlink "tmp";
|
||||||
|
my $tdir = tempdir();
|
||||||
|
symlink $tdir, "tmp" or die "Cannot symlink temp directory: $!\n";
|
||||||
|
}
|
||||||
chdir "tmp" or die "Cannot enter temp direcory.\n";
|
chdir "tmp" or die "Cannot enter temp direcory.\n";
|
||||||
|
|
||||||
sub show($$$);
|
sub show($$$);
|
||||||
|
@ -236,8 +241,6 @@ test("max messages + expunge", \@x50, \@X51, @O51);
|
||||||
|
|
||||||
################################################################################
|
################################################################################
|
||||||
|
|
||||||
chdir "..";
|
|
||||||
rmdir "tmp";
|
|
||||||
print "OK.\n";
|
print "OK.\n";
|
||||||
exit 0;
|
exit 0;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user