Allow concatenation of path/dir_path type to be a path pattern

2 files changed, 30 insertions, 1 deletions

diff --git a/tests/directive/parsing.testscript b/tests/directive/parsing.testscript
index 04dd054..3f180f0 100644
--- a/tests/directive/parsing.testscript
+++ b/tests/directive/parsing.testscript
@@ -1,4 +1,4 @@
-# file      : tests/directive/assert.testscript
+# file      : tests/directive/parsing.testscript
 # license   : MIT; see accompanying LICENSE file
 
 # Test overall directive parsing.
diff --git a/tests/name/pattern.testscript b/tests/name/pattern.testscript
index 36c7b10..c1a4ce4 100644
--- a/tests/name/pattern.testscript
+++ b/tests/name/pattern.testscript
@@ -18,6 +18,35 @@ pat = '*'
 print "$(pat).txt"
 EOI
 
+: typed-concat
+:
+{
+  : dir-path
+  :
+  touch foo.txt;
+  $* <'print {$src_base/*.txt}' >/~'%.+/foo\.txt%'
+
+  : path
+  :
+  touch foo.txt;
+  $* <<EOI >/~'%.+/foo\.txt%'
+    p = [path] $src_base
+    print {$p/*.txt}
+    EOI
+
+  : string
+  :
+  touch foo.txt;
+  $* <<EOI >~'%.+/\*\.txt%'
+    p = [string] "$src_base"
+    print {$p/*.txt}
+    EOI
+
+  : not-pattern
+  :
+  $* <'print {$src_base/foo.txt}' >/~'%.+/foo\.txt%'
+}
+
 : detect
 :
 : Test pattern_mode parsing logic.