diff options
| author | nijtmans <nijtmans> | 2008-07-23 23:24:21 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2008-07-23 23:24:21 (GMT) |
| commit | 535ee80de6d5c048f9a3ae7a5956b114e9a5e3f6 (patch) | |
| tree | 44da117febb11bc69d260540340f018933aa8b45 /tests/select.test | |
| parent | 8daba6660a12dce054485bf87cef227741ac76a0 (diff) | |
| download | tk-535ee80de6d5c048f9a3ae7a5956b114e9a5e3f6.zip tk-535ee80de6d5c048f9a3ae7a5956b114e9a5e3f6.tar.gz tk-535ee80de6d5c048f9a3ae7a5956b114e9a5e3f6.tar.bz2 | |
fix [2021443] inconsistant "wrong # args" messages (for Tk)
Diffstat (limited to 'tests/select.test')
| -rw-r--r-- | tests/select.test | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/select.test b/tests/select.test index 1c072da..6c29e9f 100644 --- a/tests/select.test +++ b/tests/select.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: select.test,v 1.16 2005/11/13 21:58:16 dkf Exp $ +# RCS: @(#) $Id: select.test,v 1.17 2008/07/23 23:24:25 nijtmans Exp $ # # Note: Multiple display selection handling will only be tested if the @@ -567,7 +567,7 @@ test select-5.14 {Tk_GetSelection procedure} {unix altDisplay} { test select-6.1 {Tk_SelectionCmd procedure} { list [catch {selection} cmd] $cmd -} {1 {wrong # args: should be "selection option ?arg arg ...?"}} +} {1 {wrong # args: should be "selection option ?arg ...?"}} # selection clear test select-6.2 {Tk_SelectionCmd procedure} { list [catch {selection clear -selection} cmd] $cmd @@ -622,7 +622,7 @@ test select-6.11 {Tk_SelectionCmd procedure} { } {.f1 {}} test select-6.12 {Tk_SelectionCmd procedure} { list [catch {selection clear foo bar} cmd] $cmd -} {1 {wrong # args: should be "selection clear ?options?"}} +} {1 {wrong # args: should be "selection clear ?-option value ...?"}} # selection get test select-6.13 {Tk_SelectionCmd procedure} { list [catch {selection get -selection} cmd] $cmd @@ -666,7 +666,7 @@ test select-6.19 {Tk_SelectionCmd procedure} { } {1 {bad window path name ".f2"}} test select-6.20 {Tk_SelectionCmd procedure} { list [catch {selection get foo bar} cmd] $cmd -} {1 {wrong # args: should be "selection get ?options?"}} +} {1 {wrong # args: should be "selection get ?-option value ...?"}} test select-6.21 {Tk_SelectionCmd procedure} { global selValue selInfo setup @@ -696,13 +696,13 @@ test select-6.25 {Tk_SelectionCmd procedure} { } {1 {bad option "-selectionfoo": must be -format, -selection, or -type}} test select-6.26 {Tk_SelectionCmd procedure} { list [catch {selection handle} cmd] $cmd -} {1 {wrong # args: should be "selection handle ?options? window command"}} +} {1 {wrong # args: should be "selection handle ?-option value ...? window command"}} test select-6.27 {Tk_SelectionCmd procedure} { list [catch {selection handle .} cmd] $cmd -} {1 {wrong # args: should be "selection handle ?options? window command"}} +} {1 {wrong # args: should be "selection handle ?-option value ...? window command"}} test select-6.28 {Tk_SelectionCmd procedure} { list [catch {selection handle . foo bar baz blat} cmd] $cmd -} {1 {wrong # args: should be "selection handle ?options? window command"}} +} {1 {wrong # args: should be "selection handle ?-option value ...? window command"}} test select-6.29 {Tk_SelectionCmd procedure} { catch { destroy .f2 } list [catch {selection handle .f2 dummy} cmd] $cmd @@ -748,7 +748,7 @@ test select-6.37 {Tk_SelectionCmd procedure} { } {1 {bad window path name ".f2"}} test select-6.38 {Tk_SelectionCmd procedure} { list [catch {selection own foo bar baz} cmd] $cmd -} {1 {wrong # args: should be "selection own ?options? ?window?"}} +} {1 {wrong # args: should be "selection own ?-option value ...? ?window?"}} test select-6.39 {Tk_SelectionCmd procedure} { list [catch {selection foo} cmd] $cmd } {1 {bad option "foo": must be clear, get, handle, or own}} |