diff options
| author | peter.spjuth@gmail.com <pspjuth> | 2001-08-18 20:03:16 (GMT) |
|---|---|---|
| committer | peter.spjuth@gmail.com <pspjuth> | 2001-08-18 20:03:16 (GMT) |
| commit | 0cfda40768db772a71964c63fbbd86504013be44 (patch) | |
| tree | 08d8c782e9942c3828ce6daa40ba7de28cc34139 /tests/grid.test | |
| parent | 69de8a4a944ed7d54ed7ea755a571ae6c840ead6 (diff) | |
| download | tk-0cfda40768db772a71964c63fbbd86504013be44.zip tk-0cfda40768db772a71964c63fbbd86504013be44.tar.gz tk-0cfda40768db772a71964c63fbbd86504013be44.tar.bz2 | |
Grid configure rejected initial "x" and "^". [Bug #418664]
Diffstat (limited to 'tests/grid.test')
| -rw-r--r-- | tests/grid.test | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/tests/grid.test b/tests/grid.test index 75ead6e..7384748 100644 --- a/tests/grid.test +++ b/tests/grid.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: grid.test,v 1.9 2001/02/12 18:06:47 drh Exp $ +# RCS: @(#) $Id: grid.test,v 1.10 2001/08/18 20:03:17 pspjuth Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -68,6 +68,22 @@ test grid-1.6 {basic argument checking} { list [catch {grid x} msg] $msg } {1 {can't determine master window}} +test grid-1.7 {basic argument checking} { + list [catch {grid configure x} msg] $msg +} {1 {can't determine master window}} + +test grid-1.8 {basic argument checking} { + button .b + list [catch {grid x .b} msg] $msg +} {0 {}} +grid_reset 1.8 + +test grid-1.9 {basic argument checking} { + button .b + list [catch {grid configure x .b} msg] $msg +} {0 {}} +grid_reset 1.9 + test grid-2.1 {bbox} { list [catch {grid bbox .} msg] $msg } {0 {0 0 0 0}} |