Handle few corner cases in concatenated expansion

1 files changed, 28 insertions, 0 deletions

diff --git a/tests/expansion/concat.test b/tests/expansion/concat.test
new file mode 100644
index 0000000..ba98624
--- /dev/null
+++ b/tests/expansion/concat.test
@@ -0,0 +1,28 @@
+# file      : tests/expansion/type.test
+# copyright : Copyright (c) 2014-2018 Code Synthesis Ltd
+# license   : MIT; see accompanying LICENSE file
+
+# Test concatenated expansion.
+
+.include ../common.test
+
+: typed-exceptions
+:
+$* <<EOI >>EOO
+d = [dir_path] dir
+s = [string] foo
+
+print $d/{bar}
+print $s{bar}
+print $d/$s{bar}
+print file{x$s}
+print dir/{x$s}
+print prj%{x$s}
+EOI
+dir/bar
+foo{bar}
+dir/foo{bar}
+file{xfoo}
+dir/xfoo
+prj%xfoo
+EOO