TIP#215 IMPLEMENTATION

        * doc/incr.n:           Revised [incr] to auto-initialize when varName
        * generic/tclExecute.c: argument is unset.  [Patch 1413115].
        * generic/tclVar.c:
        * tests/compile.test:
        * tests/incr-old.test:
        * tests/incr.test:
        * tests/set.test:

1 files changed, 3 insertions, 1 deletions

diff --git a/tests/set.test b/tests/set.test
index ce1d31a..2a0dc61 100644
--- a/tests/set.test
+++ b/tests/set.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: set.test,v 1.9 2004/11/03 17:16:05 dgp Exp $
+# RCS: @(#) $Id: set.test,v 1.10 2006/02/09 17:34:42 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -233,6 +233,7 @@ test set-1.26 {TclCompileSetCmd: various array constructs} {
 {b c} foo 51}]; # " just a matching end quote
 
 test set-2.1 {set command: runtime error, bad variable name} {
+    unset -nocomplain {"foo}
     list [catch {set {"foo}} msg] $msg $errorInfo
 } {1 {can't read ""foo": no such variable} {can't read ""foo": no such variable
     while executing
@@ -476,6 +477,7 @@ test set-3.24 {uncompiled set command: too many arguments} {
 } {wrong # args: should be "set varName ?newValue?"}
 
 test set-4.1 {uncompiled set command: runtime error, bad variable name} {
+    unset -nocomplain {"foo}
     set z set
     list [catch {$z {"foo}} msg] $msg $errorInfo
 } {1 {can't read ""foo": no such variable} {can't read ""foo": no such variable