diff options
Diffstat (limited to 'tests/border.test')
| -rw-r--r-- | tests/border.test | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/border.test b/tests/border.test index 185a894..db1a5f7 100644 --- a/tests/border.test +++ b/tests/border.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: border.test,v 1.6 2004/06/17 22:38:57 dkf Exp $ +# RCS: @(#) $Id: border.test,v 1.7 2004/12/04 00:04:40 dkf Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -126,31 +126,31 @@ test border-4.1 {FreeBorderObjProc} testborder { catch {destroy .b} button .b -test get-2.1 {Tk_GetReliefFromObj} { +test border-5.1 {Tk_GetReliefFromObj} { .b configure -relief flat .b cget -relief } {flat} -test get-2.2 {Tk_GetReliefFromObj} { +test border-5.2 {Tk_GetReliefFromObj} { .b configure -relief groove .b cget -relief } {groove} -test get-2.3 {Tk_GetReliefFromObj} { +test border-5.3 {Tk_GetReliefFromObj} { .b configure -relief raised .b cget -relief } {raised} -test get-2.3 {Tk_GetReliefFromObj} { +test border-5.4 {Tk_GetReliefFromObj} { .b configure -relief ridge .b cget -relief } {ridge} -test get-2.3 {Tk_GetReliefFromObj} { +test border-5.5 {Tk_GetReliefFromObj} { .b configure -relief solid .b cget -relief } {solid} -test get-2.3 {Tk_GetReliefFromObj} { +test border-5.6 {Tk_GetReliefFromObj} { .b configure -relief sunken .b cget -relief } {sunken} -test get-2.4 {Tk_GetReliefFromObj - error} { +test border-5.7 {Tk_GetReliefFromObj - error} { list [catch {.b configure -relief upanddown} msg] $msg } {1 {bad relief "upanddown": must be flat, groove, raised, ridge, solid, or sunken}} |