|
sl@0
|
1 |
# Commands covered: incr
|
|
sl@0
|
2 |
#
|
|
sl@0
|
3 |
# This file contains a collection of tests for one or more of the Tcl
|
|
sl@0
|
4 |
# built-in commands. Sourcing this file into Tcl runs the tests and
|
|
sl@0
|
5 |
# generates output for errors. No output means no errors were found.
|
|
sl@0
|
6 |
#
|
|
sl@0
|
7 |
# Copyright (c) 1996 Sun Microsystems, Inc.
|
|
sl@0
|
8 |
# Copyright (c) 1998-1999 by Scriptics Corporation.
|
|
sl@0
|
9 |
#
|
|
sl@0
|
10 |
# See the file "license.terms" for information on usage and redistribution
|
|
sl@0
|
11 |
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
|
sl@0
|
12 |
#
|
|
sl@0
|
13 |
# RCS: @(#) $Id: incr.test,v 1.8 2003/02/07 01:07:05 mdejong Exp $
|
|
sl@0
|
14 |
|
|
sl@0
|
15 |
if {[lsearch [namespace children] ::tcltest] == -1} {
|
|
sl@0
|
16 |
package require tcltest
|
|
sl@0
|
17 |
namespace import -force ::tcltest::*
|
|
sl@0
|
18 |
}
|
|
sl@0
|
19 |
|
|
sl@0
|
20 |
# Basic "incr" operation.
|
|
sl@0
|
21 |
|
|
sl@0
|
22 |
catch {unset x}
|
|
sl@0
|
23 |
catch {unset i}
|
|
sl@0
|
24 |
|
|
sl@0
|
25 |
test incr-1.1 {TclCompileIncrCmd: missing variable name} {
|
|
sl@0
|
26 |
list [catch {incr} msg] $msg
|
|
sl@0
|
27 |
} {1 {wrong # args: should be "incr varName ?increment?"}}
|
|
sl@0
|
28 |
test incr-1.2 {TclCompileIncrCmd: simple variable name} {
|
|
sl@0
|
29 |
set i 10
|
|
sl@0
|
30 |
list [incr i] $i
|
|
sl@0
|
31 |
} {11 11}
|
|
sl@0
|
32 |
test incr-1.3 {TclCompileIncrCmd: error compiling variable name} {
|
|
sl@0
|
33 |
set i 10
|
|
sl@0
|
34 |
catch {incr "i"xxx} msg
|
|
sl@0
|
35 |
set msg
|
|
sl@0
|
36 |
} {extra characters after close-quote}
|
|
sl@0
|
37 |
test incr-1.4 {TclCompileIncrCmd: simple variable name in quotes} {
|
|
sl@0
|
38 |
set i 17
|
|
sl@0
|
39 |
list [incr "i"] $i
|
|
sl@0
|
40 |
} {18 18}
|
|
sl@0
|
41 |
test incr-1.5 {TclCompileIncrCmd: simple variable name in braces} {
|
|
sl@0
|
42 |
catch {unset {a simple var}}
|
|
sl@0
|
43 |
set {a simple var} 27
|
|
sl@0
|
44 |
list [incr {a simple var}] ${a simple var}
|
|
sl@0
|
45 |
} {28 28}
|
|
sl@0
|
46 |
test incr-1.6 {TclCompileIncrCmd: simple array variable name} {
|
|
sl@0
|
47 |
catch {unset a}
|
|
sl@0
|
48 |
set a(foo) 37
|
|
sl@0
|
49 |
list [incr a(foo)] $a(foo)
|
|
sl@0
|
50 |
} {38 38}
|
|
sl@0
|
51 |
test incr-1.7 {TclCompileIncrCmd: non-simple (computed) variable name} {
|
|
sl@0
|
52 |
set x "i"
|
|
sl@0
|
53 |
set i 77
|
|
sl@0
|
54 |
list [incr $x 2] $i
|
|
sl@0
|
55 |
} {79 79}
|
|
sl@0
|
56 |
test incr-1.8 {TclCompileIncrCmd: non-simple (computed) variable name} {
|
|
sl@0
|
57 |
set x "i"
|
|
sl@0
|
58 |
set i 77
|
|
sl@0
|
59 |
list [incr [set x] +2] $i
|
|
sl@0
|
60 |
} {79 79}
|
|
sl@0
|
61 |
|
|
sl@0
|
62 |
test incr-1.9 {TclCompileIncrCmd: increment given} {
|
|
sl@0
|
63 |
set i 10
|
|
sl@0
|
64 |
list [incr i +07] $i
|
|
sl@0
|
65 |
} {17 17}
|
|
sl@0
|
66 |
test incr-1.10 {TclCompileIncrCmd: no increment given} {
|
|
sl@0
|
67 |
set i 10
|
|
sl@0
|
68 |
list [incr i] $i
|
|
sl@0
|
69 |
} {11 11}
|
|
sl@0
|
70 |
|
|
sl@0
|
71 |
test incr-1.11 {TclCompileIncrCmd: simple global name} {
|
|
sl@0
|
72 |
proc p {} {
|
|
sl@0
|
73 |
global i
|
|
sl@0
|
74 |
set i 54
|
|
sl@0
|
75 |
incr i
|
|
sl@0
|
76 |
}
|
|
sl@0
|
77 |
p
|
|
sl@0
|
78 |
} {55}
|
|
sl@0
|
79 |
test incr-1.12 {TclCompileIncrCmd: simple local name} {
|
|
sl@0
|
80 |
proc p {} {
|
|
sl@0
|
81 |
set foo 100
|
|
sl@0
|
82 |
incr foo
|
|
sl@0
|
83 |
}
|
|
sl@0
|
84 |
p
|
|
sl@0
|
85 |
} {101}
|
|
sl@0
|
86 |
test incr-1.13 {TclCompileIncrCmd: simple but new (unknown) local name} {
|
|
sl@0
|
87 |
proc p {} {
|
|
sl@0
|
88 |
incr bar
|
|
sl@0
|
89 |
}
|
|
sl@0
|
90 |
catch {p} msg
|
|
sl@0
|
91 |
set msg
|
|
sl@0
|
92 |
} {can't read "bar": no such variable}
|
|
sl@0
|
93 |
test incr-1.14 {TclCompileIncrCmd: simple local name, >255 locals} {
|
|
sl@0
|
94 |
proc 260locals {} {
|
|
sl@0
|
95 |
# create 260 locals
|
|
sl@0
|
96 |
set a0 0; set a1 0; set a2 0; set a3 0; set a4 0
|
|
sl@0
|
97 |
set a5 0; set a6 0; set a7 0; set a8 0; set a9 0
|
|
sl@0
|
98 |
set b0 0; set b1 0; set b2 0; set b3 0; set b4 0
|
|
sl@0
|
99 |
set b5 0; set b6 0; set b7 0; set b8 0; set b9 0
|
|
sl@0
|
100 |
set c0 0; set c1 0; set c2 0; set c3 0; set c4 0
|
|
sl@0
|
101 |
set c5 0; set c6 0; set c7 0; set c8 0; set c9 0
|
|
sl@0
|
102 |
set d0 0; set d1 0; set d2 0; set d3 0; set d4 0
|
|
sl@0
|
103 |
set d5 0; set d6 0; set d7 0; set d8 0; set d9 0
|
|
sl@0
|
104 |
set e0 0; set e1 0; set e2 0; set e3 0; set e4 0
|
|
sl@0
|
105 |
set e5 0; set e6 0; set e7 0; set e8 0; set e9 0
|
|
sl@0
|
106 |
set f0 0; set f1 0; set f2 0; set f3 0; set f4 0
|
|
sl@0
|
107 |
set f5 0; set f6 0; set f7 0; set f8 0; set f9 0
|
|
sl@0
|
108 |
set g0 0; set g1 0; set g2 0; set g3 0; set g4 0
|
|
sl@0
|
109 |
set g5 0; set g6 0; set g7 0; set g8 0; set g9 0
|
|
sl@0
|
110 |
set h0 0; set h1 0; set h2 0; set h3 0; set h4 0
|
|
sl@0
|
111 |
set h5 0; set h6 0; set h7 0; set h8 0; set h9 0
|
|
sl@0
|
112 |
set i0 0; set i1 0; set i2 0; set i3 0; set i4 0
|
|
sl@0
|
113 |
set i5 0; set i6 0; set i7 0; set i8 0; set i9 0
|
|
sl@0
|
114 |
set j0 0; set j1 0; set j2 0; set j3 0; set j4 0
|
|
sl@0
|
115 |
set j5 0; set j6 0; set j7 0; set j8 0; set j9 0
|
|
sl@0
|
116 |
set k0 0; set k1 0; set k2 0; set k3 0; set k4 0
|
|
sl@0
|
117 |
set k5 0; set k6 0; set k7 0; set k8 0; set k9 0
|
|
sl@0
|
118 |
set l0 0; set l1 0; set l2 0; set l3 0; set l4 0
|
|
sl@0
|
119 |
set l5 0; set l6 0; set l7 0; set l8 0; set l9 0
|
|
sl@0
|
120 |
set m0 0; set m1 0; set m2 0; set m3 0; set m4 0
|
|
sl@0
|
121 |
set m5 0; set m6 0; set m7 0; set m8 0; set m9 0
|
|
sl@0
|
122 |
set n0 0; set n1 0; set n2 0; set n3 0; set n4 0
|
|
sl@0
|
123 |
set n5 0; set n6 0; set n7 0; set n8 0; set n9 0
|
|
sl@0
|
124 |
set o0 0; set o1 0; set o2 0; set o3 0; set o4 0
|
|
sl@0
|
125 |
set o5 0; set o6 0; set o7 0; set o8 0; set o9 0
|
|
sl@0
|
126 |
set p0 0; set p1 0; set p2 0; set p3 0; set p4 0
|
|
sl@0
|
127 |
set p5 0; set p6 0; set p7 0; set p8 0; set p9 0
|
|
sl@0
|
128 |
set q0 0; set q1 0; set q2 0; set q3 0; set q4 0
|
|
sl@0
|
129 |
set q5 0; set q6 0; set q7 0; set q8 0; set q9 0
|
|
sl@0
|
130 |
set r0 0; set r1 0; set r2 0; set r3 0; set r4 0
|
|
sl@0
|
131 |
set r5 0; set r6 0; set r7 0; set r8 0; set r9 0
|
|
sl@0
|
132 |
set s0 0; set s1 0; set s2 0; set s3 0; set s4 0
|
|
sl@0
|
133 |
set s5 0; set s6 0; set s7 0; set s8 0; set s9 0
|
|
sl@0
|
134 |
set t0 0; set t1 0; set t2 0; set t3 0; set t4 0
|
|
sl@0
|
135 |
set t5 0; set t6 0; set t7 0; set t8 0; set t9 0
|
|
sl@0
|
136 |
set u0 0; set u1 0; set u2 0; set u3 0; set u4 0
|
|
sl@0
|
137 |
set u5 0; set u6 0; set u7 0; set u8 0; set u9 0
|
|
sl@0
|
138 |
set v0 0; set v1 0; set v2 0; set v3 0; set v4 0
|
|
sl@0
|
139 |
set v5 0; set v6 0; set v7 0; set v8 0; set v9 0
|
|
sl@0
|
140 |
set w0 0; set w1 0; set w2 0; set w3 0; set w4 0
|
|
sl@0
|
141 |
set w5 0; set w6 0; set w7 0; set w8 0; set w9 0
|
|
sl@0
|
142 |
set x0 0; set x1 0; set x2 0; set x3 0; set x4 0
|
|
sl@0
|
143 |
set x5 0; set x6 0; set x7 0; set x8 0; set x9 0
|
|
sl@0
|
144 |
set y0 0; set y1 0; set y2 0; set y3 0; set y4 0
|
|
sl@0
|
145 |
set y5 0; set y6 0; set y7 0; set y8 0; set y9 0
|
|
sl@0
|
146 |
set z0 0; set z1 0; set z2 0; set z3 0; set z4 0
|
|
sl@0
|
147 |
set z5 0; set z6 0; set z7 0; set z8 0; set z9 0
|
|
sl@0
|
148 |
# now increment the last one (local var index > 255)
|
|
sl@0
|
149 |
incr z9
|
|
sl@0
|
150 |
}
|
|
sl@0
|
151 |
260locals
|
|
sl@0
|
152 |
} {1}
|
|
sl@0
|
153 |
test incr-1.15 {TclCompileIncrCmd: variable is array} {
|
|
sl@0
|
154 |
catch {unset a}
|
|
sl@0
|
155 |
set a(foo) 27
|
|
sl@0
|
156 |
set x [incr a(foo) 11]
|
|
sl@0
|
157 |
catch {unset a}
|
|
sl@0
|
158 |
set x
|
|
sl@0
|
159 |
} 38
|
|
sl@0
|
160 |
test incr-1.16 {TclCompileIncrCmd: variable is array, elem substitutions} {
|
|
sl@0
|
161 |
catch {unset a}
|
|
sl@0
|
162 |
set i 5
|
|
sl@0
|
163 |
set a(foo5) 27
|
|
sl@0
|
164 |
set x [incr a(foo$i) 11]
|
|
sl@0
|
165 |
catch {unset a}
|
|
sl@0
|
166 |
set x
|
|
sl@0
|
167 |
} 38
|
|
sl@0
|
168 |
|
|
sl@0
|
169 |
test incr-1.17 {TclCompileIncrCmd: increment given, simple int} {
|
|
sl@0
|
170 |
set i 5
|
|
sl@0
|
171 |
incr i 123
|
|
sl@0
|
172 |
} 128
|
|
sl@0
|
173 |
test incr-1.18 {TclCompileIncrCmd: increment given, simple int} {
|
|
sl@0
|
174 |
set i 5
|
|
sl@0
|
175 |
incr i -100
|
|
sl@0
|
176 |
} -95
|
|
sl@0
|
177 |
test incr-1.19 {TclCompileIncrCmd: increment given, but erroneous} {
|
|
sl@0
|
178 |
set i 5
|
|
sl@0
|
179 |
catch {incr i [set]} msg
|
|
sl@0
|
180 |
set errorInfo
|
|
sl@0
|
181 |
} {wrong # args: should be "set varName ?newValue?"
|
|
sl@0
|
182 |
while compiling
|
|
sl@0
|
183 |
"set"
|
|
sl@0
|
184 |
while compiling
|
|
sl@0
|
185 |
"incr i [set]"}
|
|
sl@0
|
186 |
test incr-1.20 {TclCompileIncrCmd: increment given, in quotes} {
|
|
sl@0
|
187 |
set i 25
|
|
sl@0
|
188 |
incr i "-100"
|
|
sl@0
|
189 |
} -75
|
|
sl@0
|
190 |
test incr-1.21 {TclCompileIncrCmd: increment given, in braces} {
|
|
sl@0
|
191 |
set i 24
|
|
sl@0
|
192 |
incr i {126}
|
|
sl@0
|
193 |
} 150
|
|
sl@0
|
194 |
test incr-1.22 {TclCompileIncrCmd: increment given, large int} {
|
|
sl@0
|
195 |
set i 5
|
|
sl@0
|
196 |
incr i 200000
|
|
sl@0
|
197 |
} 200005
|
|
sl@0
|
198 |
test incr-1.23 {TclCompileIncrCmd: increment given, formatted int != int} {
|
|
sl@0
|
199 |
set i 25
|
|
sl@0
|
200 |
incr i 000012345 ;# an octal literal
|
|
sl@0
|
201 |
} 5374
|
|
sl@0
|
202 |
test incr-1.24 {TclCompileIncrCmd: increment given, formatted int != int} {
|
|
sl@0
|
203 |
set i 25
|
|
sl@0
|
204 |
catch {incr i 1a} msg
|
|
sl@0
|
205 |
set msg
|
|
sl@0
|
206 |
} {expected integer but got "1a"}
|
|
sl@0
|
207 |
|
|
sl@0
|
208 |
test incr-1.25 {TclCompileIncrCmd: too many arguments} {
|
|
sl@0
|
209 |
set i 10
|
|
sl@0
|
210 |
catch {incr i 10 20} msg
|
|
sl@0
|
211 |
set msg
|
|
sl@0
|
212 |
} {wrong # args: should be "incr varName ?increment?"}
|
|
sl@0
|
213 |
|
|
sl@0
|
214 |
|
|
sl@0
|
215 |
test incr-1.26 {TclCompileIncrCmd: runtime error, bad variable name} {
|
|
sl@0
|
216 |
list [catch {incr {"foo}} msg] $msg $errorInfo
|
|
sl@0
|
217 |
} {1 {can't read ""foo": no such variable} {can't read ""foo": no such variable
|
|
sl@0
|
218 |
(reading value of variable to increment)
|
|
sl@0
|
219 |
invoked from within
|
|
sl@0
|
220 |
"incr {"foo}"}}
|
|
sl@0
|
221 |
test incr-1.27 {TclCompileIncrCmd: runtime error, bad variable name} {
|
|
sl@0
|
222 |
list [catch {incr [set]} msg] $msg $errorInfo
|
|
sl@0
|
223 |
} {1 {wrong # args: should be "set varName ?newValue?"} {wrong # args: should be "set varName ?newValue?"
|
|
sl@0
|
224 |
while compiling
|
|
sl@0
|
225 |
"set"
|
|
sl@0
|
226 |
while compiling
|
|
sl@0
|
227 |
"incr [set]"}}
|
|
sl@0
|
228 |
test incr-1.28 {TclCompileIncrCmd: runtime error, readonly variable} {
|
|
sl@0
|
229 |
proc readonly args {error "variable is read-only"}
|
|
sl@0
|
230 |
set x 123
|
|
sl@0
|
231 |
trace var x w readonly
|
|
sl@0
|
232 |
list [catch {incr x 1} msg] $msg $errorInfo
|
|
sl@0
|
233 |
} {1 {can't set "x": variable is read-only} {can't set "x": variable is read-only
|
|
sl@0
|
234 |
while executing
|
|
sl@0
|
235 |
"incr x 1"}}
|
|
sl@0
|
236 |
catch {unset x}
|
|
sl@0
|
237 |
test incr-1.29 {TclCompileIncrCmd: runtime error, bad variable value} {
|
|
sl@0
|
238 |
set x " - "
|
|
sl@0
|
239 |
list [catch {incr x 1} msg] $msg
|
|
sl@0
|
240 |
} {1 {expected integer but got " - "}}
|
|
sl@0
|
241 |
|
|
sl@0
|
242 |
test incr-1.30 {TclCompileIncrCmd: array var, braced (no subs)} {
|
|
sl@0
|
243 |
catch {unset array}
|
|
sl@0
|
244 |
set array(\$foo) 4
|
|
sl@0
|
245 |
incr {array($foo)}
|
|
sl@0
|
246 |
} 5
|
|
sl@0
|
247 |
|
|
sl@0
|
248 |
# Check "incr" and computed command names.
|
|
sl@0
|
249 |
|
|
sl@0
|
250 |
test incr-2.0 {incr and computed command names} {
|
|
sl@0
|
251 |
set i 5
|
|
sl@0
|
252 |
set z incr
|
|
sl@0
|
253 |
$z i -1
|
|
sl@0
|
254 |
set i
|
|
sl@0
|
255 |
} 4
|
|
sl@0
|
256 |
catch {unset x}
|
|
sl@0
|
257 |
catch {unset i}
|
|
sl@0
|
258 |
|
|
sl@0
|
259 |
test incr-2.1 {incr command (not compiled): missing variable name} {
|
|
sl@0
|
260 |
set z incr
|
|
sl@0
|
261 |
list [catch {$z} msg] $msg
|
|
sl@0
|
262 |
} {1 {wrong # args: should be "incr varName ?increment?"}}
|
|
sl@0
|
263 |
test incr-2.2 {incr command (not compiled): simple variable name} {
|
|
sl@0
|
264 |
set z incr
|
|
sl@0
|
265 |
set i 10
|
|
sl@0
|
266 |
list [$z i] $i
|
|
sl@0
|
267 |
} {11 11}
|
|
sl@0
|
268 |
test incr-2.3 {incr command (not compiled): error compiling variable name} {
|
|
sl@0
|
269 |
set z incr
|
|
sl@0
|
270 |
set i 10
|
|
sl@0
|
271 |
catch {$z "i"xxx} msg
|
|
sl@0
|
272 |
set msg
|
|
sl@0
|
273 |
} {extra characters after close-quote}
|
|
sl@0
|
274 |
test incr-2.4 {incr command (not compiled): simple variable name in quotes} {
|
|
sl@0
|
275 |
set z incr
|
|
sl@0
|
276 |
set i 17
|
|
sl@0
|
277 |
list [$z "i"] $i
|
|
sl@0
|
278 |
} {18 18}
|
|
sl@0
|
279 |
test incr-2.5 {incr command (not compiled): simple variable name in braces} {
|
|
sl@0
|
280 |
set z incr
|
|
sl@0
|
281 |
catch {unset {a simple var}}
|
|
sl@0
|
282 |
set {a simple var} 27
|
|
sl@0
|
283 |
list [$z {a simple var}] ${a simple var}
|
|
sl@0
|
284 |
} {28 28}
|
|
sl@0
|
285 |
test incr-2.6 {incr command (not compiled): simple array variable name} {
|
|
sl@0
|
286 |
set z incr
|
|
sl@0
|
287 |
catch {unset a}
|
|
sl@0
|
288 |
set a(foo) 37
|
|
sl@0
|
289 |
list [$z a(foo)] $a(foo)
|
|
sl@0
|
290 |
} {38 38}
|
|
sl@0
|
291 |
test incr-2.7 {incr command (not compiled): non-simple (computed) variable name} {
|
|
sl@0
|
292 |
set z incr
|
|
sl@0
|
293 |
set x "i"
|
|
sl@0
|
294 |
set i 77
|
|
sl@0
|
295 |
list [$z $x 2] $i
|
|
sl@0
|
296 |
} {79 79}
|
|
sl@0
|
297 |
test incr-2.8 {incr command (not compiled): non-simple (computed) variable name} {
|
|
sl@0
|
298 |
set z incr
|
|
sl@0
|
299 |
set x "i"
|
|
sl@0
|
300 |
set i 77
|
|
sl@0
|
301 |
list [$z [set x] +2] $i
|
|
sl@0
|
302 |
} {79 79}
|
|
sl@0
|
303 |
|
|
sl@0
|
304 |
test incr-2.9 {incr command (not compiled): increment given} {
|
|
sl@0
|
305 |
set z incr
|
|
sl@0
|
306 |
set i 10
|
|
sl@0
|
307 |
list [$z i +07] $i
|
|
sl@0
|
308 |
} {17 17}
|
|
sl@0
|
309 |
test incr-2.10 {incr command (not compiled): no increment given} {
|
|
sl@0
|
310 |
set z incr
|
|
sl@0
|
311 |
set i 10
|
|
sl@0
|
312 |
list [$z i] $i
|
|
sl@0
|
313 |
} {11 11}
|
|
sl@0
|
314 |
|
|
sl@0
|
315 |
test incr-2.11 {incr command (not compiled): simple global name} {
|
|
sl@0
|
316 |
proc p {} {
|
|
sl@0
|
317 |
set z incr
|
|
sl@0
|
318 |
global i
|
|
sl@0
|
319 |
set i 54
|
|
sl@0
|
320 |
$z i
|
|
sl@0
|
321 |
}
|
|
sl@0
|
322 |
p
|
|
sl@0
|
323 |
} {55}
|
|
sl@0
|
324 |
test incr-2.12 {incr command (not compiled): simple local name} {
|
|
sl@0
|
325 |
proc p {} {
|
|
sl@0
|
326 |
set z incr
|
|
sl@0
|
327 |
set foo 100
|
|
sl@0
|
328 |
$z foo
|
|
sl@0
|
329 |
}
|
|
sl@0
|
330 |
p
|
|
sl@0
|
331 |
} {101}
|
|
sl@0
|
332 |
test incr-2.13 {incr command (not compiled): simple but new (unknown) local name} {
|
|
sl@0
|
333 |
proc p {} {
|
|
sl@0
|
334 |
set z incr
|
|
sl@0
|
335 |
$z bar
|
|
sl@0
|
336 |
}
|
|
sl@0
|
337 |
catch {p} msg
|
|
sl@0
|
338 |
set msg
|
|
sl@0
|
339 |
} {can't read "bar": no such variable}
|
|
sl@0
|
340 |
test incr-2.14 {incr command (not compiled): simple local name, >255 locals} {
|
|
sl@0
|
341 |
proc 260locals {} {
|
|
sl@0
|
342 |
set z incr
|
|
sl@0
|
343 |
# create 260 locals
|
|
sl@0
|
344 |
set a0 0; set a1 0; set a2 0; set a3 0; set a4 0
|
|
sl@0
|
345 |
set a5 0; set a6 0; set a7 0; set a8 0; set a9 0
|
|
sl@0
|
346 |
set b0 0; set b1 0; set b2 0; set b3 0; set b4 0
|
|
sl@0
|
347 |
set b5 0; set b6 0; set b7 0; set b8 0; set b9 0
|
|
sl@0
|
348 |
set c0 0; set c1 0; set c2 0; set c3 0; set c4 0
|
|
sl@0
|
349 |
set c5 0; set c6 0; set c7 0; set c8 0; set c9 0
|
|
sl@0
|
350 |
set d0 0; set d1 0; set d2 0; set d3 0; set d4 0
|
|
sl@0
|
351 |
set d5 0; set d6 0; set d7 0; set d8 0; set d9 0
|
|
sl@0
|
352 |
set e0 0; set e1 0; set e2 0; set e3 0; set e4 0
|
|
sl@0
|
353 |
set e5 0; set e6 0; set e7 0; set e8 0; set e9 0
|
|
sl@0
|
354 |
set f0 0; set f1 0; set f2 0; set f3 0; set f4 0
|
|
sl@0
|
355 |
set f5 0; set f6 0; set f7 0; set f8 0; set f9 0
|
|
sl@0
|
356 |
set g0 0; set g1 0; set g2 0; set g3 0; set g4 0
|
|
sl@0
|
357 |
set g5 0; set g6 0; set g7 0; set g8 0; set g9 0
|
|
sl@0
|
358 |
set h0 0; set h1 0; set h2 0; set h3 0; set h4 0
|
|
sl@0
|
359 |
set h5 0; set h6 0; set h7 0; set h8 0; set h9 0
|
|
sl@0
|
360 |
set i0 0; set i1 0; set i2 0; set i3 0; set i4 0
|
|
sl@0
|
361 |
set i5 0; set i6 0; set i7 0; set i8 0; set i9 0
|
|
sl@0
|
362 |
set j0 0; set j1 0; set j2 0; set j3 0; set j4 0
|
|
sl@0
|
363 |
set j5 0; set j6 0; set j7 0; set j8 0; set j9 0
|
|
sl@0
|
364 |
set k0 0; set k1 0; set k2 0; set k3 0; set k4 0
|
|
sl@0
|
365 |
set k5 0; set k6 0; set k7 0; set k8 0; set k9 0
|
|
sl@0
|
366 |
set l0 0; set l1 0; set l2 0; set l3 0; set l4 0
|
|
sl@0
|
367 |
set l5 0; set l6 0; set l7 0; set l8 0; set l9 0
|
|
sl@0
|
368 |
set m0 0; set m1 0; set m2 0; set m3 0; set m4 0
|
|
sl@0
|
369 |
set m5 0; set m6 0; set m7 0; set m8 0; set m9 0
|
|
sl@0
|
370 |
set n0 0; set n1 0; set n2 0; set n3 0; set n4 0
|
|
sl@0
|
371 |
set n5 0; set n6 0; set n7 0; set n8 0; set n9 0
|
|
sl@0
|
372 |
set o0 0; set o1 0; set o2 0; set o3 0; set o4 0
|
|
sl@0
|
373 |
set o5 0; set o6 0; set o7 0; set o8 0; set o9 0
|
|
sl@0
|
374 |
set p0 0; set p1 0; set p2 0; set p3 0; set p4 0
|
|
sl@0
|
375 |
set p5 0; set p6 0; set p7 0; set p8 0; set p9 0
|
|
sl@0
|
376 |
set q0 0; set q1 0; set q2 0; set q3 0; set q4 0
|
|
sl@0
|
377 |
set q5 0; set q6 0; set q7 0; set q8 0; set q9 0
|
|
sl@0
|
378 |
set r0 0; set r1 0; set r2 0; set r3 0; set r4 0
|
|
sl@0
|
379 |
set r5 0; set r6 0; set r7 0; set r8 0; set r9 0
|
|
sl@0
|
380 |
set s0 0; set s1 0; set s2 0; set s3 0; set s4 0
|
|
sl@0
|
381 |
set s5 0; set s6 0; set s7 0; set s8 0; set s9 0
|
|
sl@0
|
382 |
set t0 0; set t1 0; set t2 0; set t3 0; set t4 0
|
|
sl@0
|
383 |
set t5 0; set t6 0; set t7 0; set t8 0; set t9 0
|
|
sl@0
|
384 |
set u0 0; set u1 0; set u2 0; set u3 0; set u4 0
|
|
sl@0
|
385 |
set u5 0; set u6 0; set u7 0; set u8 0; set u9 0
|
|
sl@0
|
386 |
set v0 0; set v1 0; set v2 0; set v3 0; set v4 0
|
|
sl@0
|
387 |
set v5 0; set v6 0; set v7 0; set v8 0; set v9 0
|
|
sl@0
|
388 |
set w0 0; set w1 0; set w2 0; set w3 0; set w4 0
|
|
sl@0
|
389 |
set w5 0; set w6 0; set w7 0; set w8 0; set w9 0
|
|
sl@0
|
390 |
set x0 0; set x1 0; set x2 0; set x3 0; set x4 0
|
|
sl@0
|
391 |
set x5 0; set x6 0; set x7 0; set x8 0; set x9 0
|
|
sl@0
|
392 |
set y0 0; set y1 0; set y2 0; set y3 0; set y4 0
|
|
sl@0
|
393 |
set y5 0; set y6 0; set y7 0; set y8 0; set y9 0
|
|
sl@0
|
394 |
set z0 0; set z1 0; set z2 0; set z3 0; set z4 0
|
|
sl@0
|
395 |
set z5 0; set z6 0; set z7 0; set z8 0; set z9 0
|
|
sl@0
|
396 |
# now increment the last one (local var index > 255)
|
|
sl@0
|
397 |
$z z9
|
|
sl@0
|
398 |
}
|
|
sl@0
|
399 |
260locals
|
|
sl@0
|
400 |
} {1}
|
|
sl@0
|
401 |
test incr-2.15 {incr command (not compiled): variable is array} {
|
|
sl@0
|
402 |
set z incr
|
|
sl@0
|
403 |
catch {unset a}
|
|
sl@0
|
404 |
set a(foo) 27
|
|
sl@0
|
405 |
set x [$z a(foo) 11]
|
|
sl@0
|
406 |
catch {unset a}
|
|
sl@0
|
407 |
set x
|
|
sl@0
|
408 |
} 38
|
|
sl@0
|
409 |
test incr-2.16 {incr command (not compiled): variable is array, elem substitutions} {
|
|
sl@0
|
410 |
set z incr
|
|
sl@0
|
411 |
catch {unset a}
|
|
sl@0
|
412 |
set i 5
|
|
sl@0
|
413 |
set a(foo5) 27
|
|
sl@0
|
414 |
set x [$z a(foo$i) 11]
|
|
sl@0
|
415 |
catch {unset a}
|
|
sl@0
|
416 |
set x
|
|
sl@0
|
417 |
} 38
|
|
sl@0
|
418 |
|
|
sl@0
|
419 |
test incr-2.17 {incr command (not compiled): increment given, simple int} {
|
|
sl@0
|
420 |
set z incr
|
|
sl@0
|
421 |
set i 5
|
|
sl@0
|
422 |
$z i 123
|
|
sl@0
|
423 |
} 128
|
|
sl@0
|
424 |
test incr-2.18 {incr command (not compiled): increment given, simple int} {
|
|
sl@0
|
425 |
set z incr
|
|
sl@0
|
426 |
set i 5
|
|
sl@0
|
427 |
$z i -100
|
|
sl@0
|
428 |
} -95
|
|
sl@0
|
429 |
test incr-2.19 {incr command (not compiled): increment given, but erroneous} {
|
|
sl@0
|
430 |
set z incr
|
|
sl@0
|
431 |
set i 5
|
|
sl@0
|
432 |
catch {$z i [set]} msg
|
|
sl@0
|
433 |
set errorInfo
|
|
sl@0
|
434 |
} {wrong # args: should be "set varName ?newValue?"
|
|
sl@0
|
435 |
while compiling
|
|
sl@0
|
436 |
"set"
|
|
sl@0
|
437 |
while compiling
|
|
sl@0
|
438 |
"$z i [set]"}
|
|
sl@0
|
439 |
test incr-2.20 {incr command (not compiled): increment given, in quotes} {
|
|
sl@0
|
440 |
set z incr
|
|
sl@0
|
441 |
set i 25
|
|
sl@0
|
442 |
$z i "-100"
|
|
sl@0
|
443 |
} -75
|
|
sl@0
|
444 |
test incr-2.21 {incr command (not compiled): increment given, in braces} {
|
|
sl@0
|
445 |
set z incr
|
|
sl@0
|
446 |
set i 24
|
|
sl@0
|
447 |
$z i {126}
|
|
sl@0
|
448 |
} 150
|
|
sl@0
|
449 |
test incr-2.22 {incr command (not compiled): increment given, large int} {
|
|
sl@0
|
450 |
set z incr
|
|
sl@0
|
451 |
set i 5
|
|
sl@0
|
452 |
$z i 200000
|
|
sl@0
|
453 |
} 200005
|
|
sl@0
|
454 |
test incr-2.23 {incr command (not compiled): increment given, formatted int != int} {
|
|
sl@0
|
455 |
set z incr
|
|
sl@0
|
456 |
set i 25
|
|
sl@0
|
457 |
$z i 000012345 ;# an octal literal
|
|
sl@0
|
458 |
} 5374
|
|
sl@0
|
459 |
test incr-2.24 {incr command (not compiled): increment given, formatted int != int} {
|
|
sl@0
|
460 |
set z incr
|
|
sl@0
|
461 |
set i 25
|
|
sl@0
|
462 |
catch {$z i 1a} msg
|
|
sl@0
|
463 |
set msg
|
|
sl@0
|
464 |
} {expected integer but got "1a"}
|
|
sl@0
|
465 |
|
|
sl@0
|
466 |
test incr-2.25 {incr command (not compiled): too many arguments} {
|
|
sl@0
|
467 |
set z incr
|
|
sl@0
|
468 |
set i 10
|
|
sl@0
|
469 |
catch {$z i 10 20} msg
|
|
sl@0
|
470 |
set msg
|
|
sl@0
|
471 |
} {wrong # args: should be "incr varName ?increment?"}
|
|
sl@0
|
472 |
|
|
sl@0
|
473 |
|
|
sl@0
|
474 |
test incr-2.26 {incr command (not compiled): runtime error, bad variable name} {
|
|
sl@0
|
475 |
set z incr
|
|
sl@0
|
476 |
list [catch {$z {"foo}} msg] $msg $errorInfo
|
|
sl@0
|
477 |
} {1 {can't read ""foo": no such variable} {can't read ""foo": no such variable
|
|
sl@0
|
478 |
(reading value of variable to increment)
|
|
sl@0
|
479 |
invoked from within
|
|
sl@0
|
480 |
"$z {"foo}"}}
|
|
sl@0
|
481 |
test incr-2.27 {incr command (not compiled): runtime error, bad variable name} {
|
|
sl@0
|
482 |
set z incr
|
|
sl@0
|
483 |
list [catch {$z [set]} msg] $msg $errorInfo
|
|
sl@0
|
484 |
} {1 {wrong # args: should be "set varName ?newValue?"} {wrong # args: should be "set varName ?newValue?"
|
|
sl@0
|
485 |
while compiling
|
|
sl@0
|
486 |
"set"
|
|
sl@0
|
487 |
while compiling
|
|
sl@0
|
488 |
"$z [set]"}}
|
|
sl@0
|
489 |
test incr-2.28 {incr command (not compiled): runtime error, readonly variable} {
|
|
sl@0
|
490 |
set z incr
|
|
sl@0
|
491 |
proc readonly args {error "variable is read-only"}
|
|
sl@0
|
492 |
set x 123
|
|
sl@0
|
493 |
trace var x w readonly
|
|
sl@0
|
494 |
list [catch {$z x 1} msg] $msg $errorInfo
|
|
sl@0
|
495 |
} {1 {can't set "x": variable is read-only} {can't set "x": variable is read-only
|
|
sl@0
|
496 |
while executing
|
|
sl@0
|
497 |
"$z x 1"}}
|
|
sl@0
|
498 |
catch {unset x}
|
|
sl@0
|
499 |
test incr-2.29 {incr command (not compiled): runtime error, bad variable value} {
|
|
sl@0
|
500 |
set z incr
|
|
sl@0
|
501 |
set x " - "
|
|
sl@0
|
502 |
list [catch {$z x 1} msg] $msg
|
|
sl@0
|
503 |
} {1 {expected integer but got " - "}}
|
|
sl@0
|
504 |
test incr-2.30 {incr command (not compiled): bad increment} {
|
|
sl@0
|
505 |
set z incr
|
|
sl@0
|
506 |
set x 0
|
|
sl@0
|
507 |
list [catch {$z x 1a} msg] $msg $errorInfo
|
|
sl@0
|
508 |
} {1 {expected integer but got "1a"} {expected integer but got "1a"
|
|
sl@0
|
509 |
(reading increment)
|
|
sl@0
|
510 |
invoked from within
|
|
sl@0
|
511 |
"$z x 1a"}}
|
|
sl@0
|
512 |
test incr-2.31 {incr command (compiled): bad increment} {
|
|
sl@0
|
513 |
list [catch {incr x 1a} msg] $msg $errorInfo
|
|
sl@0
|
514 |
} {1 {expected integer but got "1a"} {expected integer but got "1a"
|
|
sl@0
|
515 |
(reading increment)
|
|
sl@0
|
516 |
invoked from within
|
|
sl@0
|
517 |
"incr x 1a"}}
|
|
sl@0
|
518 |
|
|
sl@0
|
519 |
# cleanup
|
|
sl@0
|
520 |
::tcltest::cleanupTests
|
|
sl@0
|
521 |
return
|
|
sl@0
|
522 |
|
|
sl@0
|
523 |
|
|
sl@0
|
524 |
|
|
sl@0
|
525 |
|
|
sl@0
|
526 |
|
|
sl@0
|
527 |
|
|
sl@0
|
528 |
|
|
sl@0
|
529 |
|
|
sl@0
|
530 |
|
|
sl@0
|
531 |
|
|
sl@0
|
532 |
|
|
sl@0
|
533 |
|