diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-11-19 21:04:08 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-11-19 21:04:08 (GMT) |
commit | d7e64d08df9fe0539c308b04f9a33201faa188f5 (patch) | |
tree | a6b9ec5271f3cce6bf256e9378132f0a7a0089cc /tests/textDisp.test | |
parent | f0e7b98adcaa0890c60fdf84c8e9753f8f903a53 (diff) | |
download | tk-d7e64d08df9fe0539c308b04f9a33201faa188f5.zip tk-d7e64d08df9fe0539c308b04f9a33201faa188f5.tar.gz tk-d7e64d08df9fe0539c308b04f9a33201faa188f5.tar.bz2 |
better argument checking
Diffstat (limited to 'tests/textDisp.test')
-rw-r--r-- | tests/textDisp.test | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test index f2b176c..133fcf5 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -4201,9 +4201,17 @@ test textDisp-34.2 {text yupdate syntax} -body { test textDisp-34.3 {text yupdate syntax} -body { } -body { + pack [text .t1] -expand 1 -fill both + .t1 yupdate -comx foo +} -cleanup { + destroy .t1 +} -returnCodes 1 -result {wrong option "-comx": should be "-command"} + +test textDisp-34.4 {text yupdate syntax} -body { +} -body { set ::x 0 pack [text .t1] -expand 1 -fill both - .t1 yupdate -command [list set ::x 1] + .t1 yupdate -comm [list set ::x 1] set ::x } -cleanup { destroy .t1 |