Split duplicate test names [Bug 1078648]

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}}