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 | 0fdbfc0295d786c564b26d72dfcfdcb41ce066b0 (patch) | |
| tree | a6b9ec5271f3cce6bf256e9378132f0a7a0089cc /tests | |
| parent | 02d20875f891a2d5aac5d27ca4517de9b709cc7c (diff) | |
| download | tk-0fdbfc0295d786c564b26d72dfcfdcb41ce066b0.zip tk-0fdbfc0295d786c564b26d72dfcfdcb41ce066b0.tar.gz tk-0fdbfc0295d786c564b26d72dfcfdcb41ce066b0.tar.bz2 | |
better argument checking
Diffstat (limited to 'tests')
| -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 |