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, 5 insertions, 5 deletions

diff --git a/tests/compile.test b/tests/compile.test
index b518c37..b7d4ffa 100644
--- a/tests/compile.test
+++ b/tests/compile.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: compile.test,v 1.40 2005/11/09 20:24:10 dgp Exp $
+# RCS: @(#) $Id: compile.test,v 1.41 2006/02/09 17:34:42 dgp Exp $
 
 package require tcltest 2
 namespace import -force ::tcltest::*
@@ -250,13 +250,13 @@ test compile-11.4 {Tcl_Append*: ensure Tcl_ResetResult is used properly} {
     list [catch {p} msg] $msg
 } {1 {list must have an even number of elements}}
 test compile-11.5 {Tcl_Append*: ensure Tcl_ResetResult is used properly} {
-    proc p {} { set r [list foobar] ; incr foo }
+    proc p {} { set r [list foobar] ; incr foo bar baz}
     list [catch {p} msg] $msg
-} {1 {can't read "foo": no such variable}}
+} {1 {wrong # args: should be "incr varName ?increment?"}}
 test compile-11.6 {Tcl_Append*: ensure Tcl_ResetResult is used properly} {
-    proc p {} { set r [list foobar] ; incr foo bogus }
+    proc p {} { set r [list foobar] ; incr}
     list [catch {p} msg] $msg
-} {1 {can't read "foo": no such variable}}
+} {1 {wrong # args: should be "incr varName ?increment?"}}
 test compile-11.7 {Tcl_Append*: ensure Tcl_ResetResult is used properly} -body {
     proc p {} { set r [list foobar] ; expr !a }
     list [catch {p} msg] $msg