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, 6 deletions

diff --git a/tests/incr-old.test b/tests/incr-old.test
index 95250f8..5b93268 100644
--- a/tests/incr-old.test
+++ b/tests/incr-old.test
@@ -13,7 +13,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: incr-old.test,v 1.8 2004/11/03 17:16:05 dgp Exp $
+# RCS: @(#) $Id: incr-old.test,v 1.9 2006/02/09 17:34:42 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -47,11 +47,8 @@ test incr-old-2.2 {incr errors} {
 } {1 {wrong # args: should be "incr varName ?increment?"}}
 test incr-old-2.3 {incr errors} {
     catch {unset x}
-    list [catch {incr x} msg] $msg $errorInfo
-} {1 {can't read "x": no such variable} {can't read "x": no such variable
-    (reading value of variable to increment)
-    invoked from within
-"incr x"}}
+    incr x
+} 1
 test incr-old-2.4 {incr errors} {
     set x abc
     list [catch {incr x} msg] $msg $errorInfo