Filter hidden files/directories in wildcard patterns matches

1 files changed, 24 insertions, 0 deletions

diff --git a/tests/name/pattern.test b/tests/name/pattern.test
index e9e1c45..ae0cc3a 100644
--- a/tests/name/pattern.test
+++ b/tests/name/pattern.test
@@ -133,6 +133,30 @@ EOI
   $* <'print dir{*/ -bar/}' >/'dir{foo/}'
 }
 
+: dot
+:
+: Test filtering of hidden files/directories.
+{
+  touch foo.txt .foo.txt;
+  $* <'print *.txt' >'foo.txt'                       : file-excl
+
+  touch foo.txt .foo.txt;
+  $* <'print .*.txt' >'.foo.txt'                     : file-incl
+
+  mkdir dir .dir;
+  $* <'print */' >/'dir/'                            : dir-excl
+
+  mkdir dir .dir;
+  $* <'print .*/' >/'.dir/'                          : dir-incl
+
+  mkdir dir .dir && touch dir/foo.txt .dir/foo.txt;
+  $* <'print */*.txt' >/'dir/foo.txt';
+  $* <'print **.txt'  >/'dir/foo.txt'                : dir-interm-excl
+
+  mkdir dir .dir && touch dir/foo.txt .dir/foo.txt;
+  $* <'print .*/*.txt' >/'.dir/foo.txt'              : dir-interm-incl
+}
+
 : expansion
 :
 : Test interaction with expansion/concatenation/re-parse.