tests: mktemp: test the creation of hidden files in a subdirectory

* tests/mktemp/mktemp.pl (@Tests): Add two test cases.

diff --git a/tests/mktemp/mktemp.pl b/tests/mktemp/mktemp.pl
index 42b053aee01d75d34702cbd39e13add9dd6c907a..a7322880e5eeb6d748347ec8e0ac804a339abc01 100755 (executable)
--- a/tests/mktemp/mktemp.pl
+++ b/tests/mktemp/mktemp.pl
@@ -192,6 +192,25 @@ my @Tests =
        check_tmp $f, 'D'; rmdir 'a' or die "rmdir a: $!\n" }}
      ],
 
+     # Similar to 'tmp-w-slash1', but with a file name that starts with a
+     # period.
+     ['subdir-hidden1', '--tmpdir=. a/.XXXX',
+      {PRE => sub {mkdir 'a',0755 or die "a: $!\n"}},
+      {OUT_SUBST => 's,\.....$,.ZZZZ,'},
+      {OUT => "./a/.ZZZZ\n"},
+      {POST => sub { my ($f) = @_; defined $f or return; chomp $f;
+       check_tmp $f, 'F'; rmdir 'a' or die "rmdir a: $!\n" }}
+     ],
+
+     # Likewise, but create a directory.
+     ['subdir-hidden2', '--tmpdir=. -d a/.XXXX',
+      {PRE => sub {mkdir 'a',0755 or die "a: $!\n"}},
+      {OUT_SUBST => 's,\.....$,.ZZZZ,'},
+      {OUT => "./a/.ZZZZ\n"},
+      {POST => sub { my ($f) = @_; defined $f or return; chomp $f;
+       check_tmp $f, 'D'; rmdir 'a' or die "rmdir a: $!\n" }}
+     ],
+
      ['priority-t-tmpdir', "-t -p $bad_dir foo.XXX",
       {ENV=>"TMPDIR=."},
       {OUT_SUBST => 's,....$,.ZZZ,'},