Lines Matching +refs:namespace +refs:set +refs:consistent

14 if {"::tcltest" ni [namespace children]} {
16     namespace import -force ::tcltest::*
25     set x ""
29     set x "abcd"
34     set x ""
35     for {set i 0} {$i < 1000} {incr i} {
38     set y "foobar"
39     set y "$y $y $y $y $y $y $y $y $y $y"
40     set y "$y $y $y $y $y $y $y $y $y $y"
41     set y "$y $y $y $y $y $y $y $y $y $y "
49     set x ""
51 } -result {can't set "x(0)": variable isn't array}
62     set x ""
68 	set x old
77     set x {}
81     set x {}
85     set x {1 2 3}
89     set x "a\{"
93     set x "\\\{"
97     set x " \{"
101     set x "	\{"
105     set x "\{\{\{"
109     set x "x \{\{\{"
113     set x "x\{\{\{"
117     set x " "
121     set x "\\ "
125     set x "x "
146     set x \"
150     set x \"
157 	set l [llength $var]
161 	for {set i 0} {$i < $size} {incr i} {
162 	    set j [lindex $var $i]
170     set x ""
171     for {set i 0} {$i < 300} {incr i} {
183     set x ""
185 } -result {can't set "x(0)": variable isn't array}
196     set x
198     list [info exists x] [catch {set x} msg] $msg
224     set myvar(0) 1
242 # New tests for bug 3057639 to show off the more consistent behaviour of
250     array set myvar {}
274     array set myvar {}
297     set lst "# 1 2 3"
301     set lst "1 \{ 2"
305     set lst "# 1 2 3"
309     set lst "1 \{ 2"