254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
|
trace add variable ::errorInfo write traceScalar
catch {set dne}
lrange [set info] 0 2
} -cleanup {
# always remove trace on errorInfo otherwise further tests will fail
unset ::errorInfo
} -result {::errorInfo {} write}
# append no longer triggers read traces when fetching the old values of
# variables before doing the append operation. However, lappend _does_
# still trigger these read traces. Also lappend triggers only one write
# trace: after appending all arguments to the list.
test trace-3.1 {trace add variable read-modify-writes} {
|
<
<
|
254
255
256
257
258
259
260
261
262
263
264
265
266
267
|
trace add variable ::errorInfo write traceScalar
catch {set dne}
lrange [set info] 0 2
} -cleanup {
# always remove trace on errorInfo otherwise further tests will fail
unset ::errorInfo
} -result {::errorInfo {} write}
# append no longer triggers read traces when fetching the old values of
# variables before doing the append operation. However, lappend _does_
# still trigger these read traces. Also lappend triggers only one write
# trace: after appending all arguments to the list.
test trace-3.1 {trace add variable read-modify-writes} {
|