diff options
Diffstat (limited to 'tests/syntax-tests/source/Tcl/test.tcl')
| -rw-r--r-- | tests/syntax-tests/source/Tcl/test.tcl | 22 |
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 +} + |