add new syntax test filesv0.17.0

1 files changed, 22 insertions, 0 deletions

diff --git a/tests/syntax-tests/source/Tcl/test.tcl b/tests/syntax-tests/source/Tcl/test.tcl
new file mode 100644
index 00000000..79027b2c
--- /dev/null
+++ b/tests/syntax-tests/source/Tcl/test.tcl
@@ -0,0 +1,22 @@
+set part1 hello
+set part2 how; set part3 are
+set part4 you
+
+set part2;
+
+set greeting $part1$part2$part3$part4
+
+set somevar {
+    This is a literal $ sign, and this \} escaped
+    brace remains uninterpreted
+}
+
+set name Neo
+set greeting "Hello, $name"
+
+variable name NotNeo
+
+namespace eval people {
+    set name NeoAgain
+}
+