tests/syntax-tests/source/Tcl/test.tcl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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
}