diff options
| author | gahr <gahr@gahr.ch> | 2016-06-10 12:10:41 (GMT) |
|---|---|---|
| committer | gahr <gahr@gahr.ch> | 2016-06-10 12:10:41 (GMT) |
| commit | ed326ae9b57394d1756cebbb0bbe5c828fede4cd (patch) | |
| tree | d77bcc9fb09de474104b1fc59dde7cc6c20b4031 /tests/misc.test | |
| parent | 99ac77fd22446858dd46523bd9ba60d268968407 (diff) | |
| parent | c0e9c99a1c2810ae4214e3a98aac7013c1417a53 (diff) | |
| download | tcl-ed326ae9b57394d1756cebbb0bbe5c828fede4cd.zip tcl-ed326ae9b57394d1756cebbb0bbe5c828fede4cd.tar.gz tcl-ed326ae9b57394d1756cebbb0bbe5c828fede4cd.tar.bz2 | |
Merge trunk
Diffstat (limited to 'tests/misc.test')
| -rw-r--r-- | tests/misc.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/misc.test b/tests/misc.test index d4ece74..db8b14a 100644 --- a/tests/misc.test +++ b/tests/misc.test @@ -25,7 +25,7 @@ testConstraint testhashsystemhash [llength [info commands testhashsystemhash]] test misc-1.1 {error in variable ref. in command in array reference} { proc tstProc {} { global a - + set tst $a([winfo name $zz]) # this is a bogus comment # this is a bogus comment @@ -42,7 +42,7 @@ test misc-1.1 {error in variable ref. in command in array reference} { test misc-1.2 {error in variable ref. in command in array reference} { proc tstProc {} " global a - + set tst \$a(\[winfo name \$\{zz) # this is a bogus comment # this is a bogus comment |