1 files changed, 32 insertions, 3 deletions
diff --git a/tests/name/pattern.testscript b/tests/name/pattern.testscript
index 91fb98d..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.
@@ -332,13 +361,13 @@ EOI
   :
   {
     mkdir dir;
-    $* <'print $d' 'd=*/' >/'dir/'          : dir
+    $* <'print $p.d' 'p.d=*/' >/'dir/'          : dir
 
     mkdir dir;
-    $* <'print $d' 'd=dir{*}' >/'dir{dir/}' : dir-type
+    $* <'print $p.d' 'p.d=dir{*}' >/'dir{dir/}' : dir-type
 
     touch foo.txt;
-    $* <'print $f' 'f=*.txt' >'foo.txt'     : feil
+    $* <'print $p.f' 'p.f=*.txt' >'foo.txt'     : feil
   }
 
   : buildspec