blob: 1c2c08274c7d3a480e98c79bfa25307962b0136b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
source [file dirname [info script]]/testing.tcl
needs cmd lsubst
test lsubst-1.1 {no args} -body {
lsubst
} -returnCodes error -result {wrong # args: should be "lsubst ?-line? string"}
test lsubst-1.2 {too many args} -body {
lsubst a b c
} -returnCodes error -result {wrong # args: should be "lsubst ?-line? string"}
test lsubst-1.3 {basic, no subst} -body {
lsubst {a b c}
} -result {a b c}
test lsubst-1.4 {basics, vars} -body {
set a 1
set b "2 3"
set c "4 5 6"
set d ".1"
lsubst {$a $b $c$d}
} -result {1 {2 3} {4 5 6.1}}
test lsubst-1.5 {comments} -body {
# It is helpful to be able to include comments in a list definition
# just like in a script
lsubst {
# comment line
1
2 3
# comment line with continuation \
this is also a comments
4 ;# comment at end of line
5
}
} -result {1 2 3 4 5}
test lsubst-1.6 {commands} -body {
set a 0
lsubst {
[incr a]
[incr a]
[list d e]
[string cat f g][string cat h i]
}
} -result {1 2 {d e} fghi}
test lsubst-1.7 {expand} -body {
set a {1 2}
set space " "
set b {3 4 5}
lsubst {
{*}$a
{*}$a$space$b$space[list 6 7]
}
} -result {1 2 1 2 3 4 5 6 7}
test lsubst-1.8 {empty case} -body {
lsubst {
# Nothing
}
} -result {}
test lsubst-1.9 {backslash escapes} -body {
lsubst {
# char escapes
\r\n\t
# unicode escapes
\u00b5
# hex escapes
\x41\x42
}
} -result [list \r\n\t \u00b5 AB]
test lsubst-1.10 {simple -line} -body {
set a {1 2}
set b {3 4 5}
lsubst -line {
# This line won't produce a list, but the next will produce a list with two elements
{*}$a
# And this one will have three elements
one two $b
}
} -result {{1 2} {one two {3 4 5}}}
test lsubst-2.1 {error, missing [} -body {
lsubst {
# Missing bracket
[string cat
}
} -returnCodes error -result {unmatched "["}
test lsubst-2.2 {error, invalid command} -body {
lsubst {
a
[dummy]
b
}
} -returnCodes error -result {invalid command name "dummy"}
test lsubst-2.3 {error, unset variable} -body {
lsubst {
a
$doesnotexist
b
}
} -returnCodes error -result {can't read "doesnotexist": no such variable}
test lsubst-2.4 {break} -body {
lsubst {
a
[break]
b
}
} -returnCodes error -result {invoked "break" outside of a loop}
test lsubst-2.5 {continue} -body {
lsubst {
a
[continue]
b
}
} -returnCodes error -result {invoked "continue" outside of a loop}
test lsubst-3.1 {preservation of line numbers} -body {
set x abc
set src1 [info source $x]
set list [lsubst {
a
$x
b
}]
if {[info source [lindex $list 1]] ne [info source $x]} {
error "source does not match
}
} -result {}
testreport
|
