diff options
Diffstat (limited to 'tests/incr.test')
| -rw-r--r-- | tests/incr.test | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/tests/incr.test b/tests/incr.test index bdf0b76..07526c4 100644 --- a/tests/incr.test +++ b/tests/incr.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: incr.test,v 1.10 2004/09/26 16:36:06 msofer Exp $ +# RCS: @(#) $Id: incr.test,v 1.11 2004/11/03 17:16:05 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -221,13 +221,14 @@ test incr-1.27 {TclCompileIncrCmd: runtime error, bad variable name} -body { } -match glob -result {1 {wrong # args: should be "set varName ?newValue?"} {wrong # args: should be "set varName ?newValue?" while *ing "set"*}} -test incr-1.28 {TclCompileIncrCmd: runtime error, readonly variable} { +test incr-1.28 {TclCompileIncrCmd: runtime error, readonly variable} -body { proc readonly args {error "variable is read-only"} set x 123 trace var x w readonly list [catch {incr x 1} msg] $msg $errorInfo -} {1 {can't set "x": variable is read-only} {can't set "x": variable is read-only +} -match glob -result {1 {can't set "x": variable is read-only} {*variable is read-only while executing +* "incr x 1"}} catch {unset x} test incr-1.29 {TclCompileIncrCmd: runtime error, bad variable value} { @@ -478,14 +479,15 @@ test incr-2.27 {incr command (not compiled): runtime error, bad variable name} - } -match glob -result {1 {wrong # args: should be "set varName ?newValue?"} {wrong # args: should be "set varName ?newValue?" while *ing "set"*}} -test incr-2.28 {incr command (not compiled): runtime error, readonly variable} { +test incr-2.28 {incr command (not compiled): runtime error, readonly variable} -body { set z incr proc readonly args {error "variable is read-only"} set x 123 trace var x w readonly list [catch {$z x 1} msg] $msg $errorInfo -} {1 {can't set "x": variable is read-only} {can't set "x": variable is read-only +} -match glob -result {1 {can't set "x": variable is read-only} {*variable is read-only while executing +* "$z x 1"}} catch {unset x} test incr-2.29 {incr command (not compiled): runtime error, bad variable value} { |