summaryrefslogtreecommitdiffstats
path: root/tests/grab.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/grab.test')
-rw-r--r--tests/grab.test6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/grab.test b/tests/grab.test
index d2ee4b2..3baf7a5 100644
--- a/tests/grab.test
+++ b/tests/grab.test
@@ -7,7 +7,7 @@
# Copyright (c) 1998-2000 by Ajuba Solutions.
# All rights reserved.
#
-# RCS: @(#) $Id: grab.test,v 1.3 2003/04/01 21:06:35 dgp Exp $
+# RCS: @(#) $Id: grab.test,v 1.4 2008/07/23 23:24:24 nijtmans Exp $
package require tcltest 2.1
eval tcltest::configure $argv
@@ -19,13 +19,13 @@ tcltest::loadTestedCommands
test grab-1.1 {Tk_GrabObjCmd} {
list [catch {grab} msg] $msg
-} [list 1 "wrong # args: should be \"grab ?-global? window\" or \"grab option ?arg arg ...?\""]
+} [list 1 "wrong # args: should be \"grab ?-global? window\" or \"grab option ?arg ...?\""]
test grab-1.2 {Tk_GrabObjCmd} {
rename grab grabTest1.2
set res [list [catch {grabTest1.2} msg] $msg]
rename grabTest1.2 grab
set res
-} [list 1 "wrong # args: should be \"grabTest1.2 ?-global? window\" or \"grabTest1.2 option ?arg arg ...?\""]
+} [list 1 "wrong # args: should be \"grabTest1.2 ?-global? window\" or \"grabTest1.2 option ?arg ...?\""]
test grab-1.3 {Tk_GrabObjCmd, "grab ?-global? window"} {
list [catch {grab .foo bar baz} msg] $msg