diff options
Diffstat (limited to 'tests/misc/mktemp')
-rwxr-xr-x | tests/misc/mktemp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/misc/mktemp b/tests/misc/mktemp index 7735f33d1..e49643f34 100755 --- a/tests/misc/mktemp +++ b/tests/misc/mktemp @@ -85,9 +85,10 @@ my @Tests = # Use a template consisting solely of X's ['1d-allX', '-d XXXX', {OUT => "ZZZZ\n"}, + {PRE => sub {mkdir 'XXXX',0755 or die "XXXX: $!\n"}}, {OUT_SUBST => 's,^....$,ZZZZ,'}, {POST => sub { my ($f) = @_; defined $f or return; chomp $f; - check_tmp $f, 'D'; }} + check_tmp $f, 'D'; rmdir 'XXXX' or die "rmdir XXXX: $!\n"; }} ], # Test -u |