diff options
Diffstat (limited to 'contrib/tcl/tests/incr.test')
-rw-r--r-- | contrib/tcl/tests/incr.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/contrib/tcl/tests/incr.test b/contrib/tcl/tests/incr.test index 30db386f..e187d41 100644 --- a/contrib/tcl/tests/incr.test +++ b/contrib/tcl/tests/incr.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) incr.test 1.8 97/06/20 16:53:28 +# SCCS: @(#) incr.test 1.9 97/07/02 16:41:32 if {[string compare test [info procs test]] == 1} then {source defs} @@ -177,9 +177,9 @@ test incr-1.19 {TclCompileIncrCmd: increment given, but erroneous} { } {wrong # args: should be "set varName ?newValue?" while compiling "set" - (reading increment) + (increment expression) while compiling -"incr"} +"incr i [set]"} test incr-1.20 {TclCompileIncrCmd: increment given, in quotes} { set i 25 incr i "-100" @@ -221,7 +221,7 @@ test incr-1.27 {TclCompileIncrCmd: runtime error, bad variable name} { while compiling "set" while compiling -"incr"}} +"incr [set]"}} test incr-1.28 {TclCompileIncrCmd: runtime error, readonly variable} { proc readonly args {error "variable is read-only"} set x 123 |