summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2015-11-19 21:04:08 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2015-11-19 21:04:08 (GMT)
commitd7e64d08df9fe0539c308b04f9a33201faa188f5 (patch)
treea6b9ec5271f3cce6bf256e9378132f0a7a0089cc /tests
parentf0e7b98adcaa0890c60fdf84c8e9753f8f903a53 (diff)
downloadtk-d7e64d08df9fe0539c308b04f9a33201faa188f5.zip
tk-d7e64d08df9fe0539c308b04f9a33201faa188f5.tar.gz
tk-d7e64d08df9fe0539c308b04f9a33201faa188f5.tar.bz2
better argument checking
Diffstat (limited to 'tests')
-rw-r--r--tests/textDisp.test10
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