diff options
Diffstat (limited to 'tests/grab.test')
| -rw-r--r-- | tests/grab.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/grab.test b/tests/grab.test index 653d756..ae53673 100644 --- a/tests/grab.test +++ b/tests/grab.test @@ -4,7 +4,7 @@ # built-in commands. Sourcing this file runs the tests and # generates output for errors. No output means no errors were found. # -# Copyright (c) 1998-2000 by Ajuba Solutions. +# Copyright © 1998-2000 by Ajuba Solutions. # All rights reserved. package require tcltest 2.2 @@ -107,7 +107,7 @@ test grab-2.1 {Tk_GrabObjCmd, grab status gives correct status} -body { grab status . } -cleanup { grab release . -} -result {none} +} -result none test grab-2.2 {Tk_GrabObjCmd, grab status gives correct status} -body { set curr [grab current .] if { [string length $curr] > 0 } { |