From cd6708644ed294a0d479dbe04caa7f0f570b80bb Mon Sep 17 00:00:00 2001
From: Karen Arutyunov <karen@codesynthesis.com>
Date: Mon, 24 Oct 2022 16:21:23 +0300
Subject: Allow concatenation of path/dir_path type to be a path pattern

---
 tests/name/pattern.testscript | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

(limited to 'tests/name/pattern.testscript')

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.
-- 
cgit v1.1