From b213f0356ba2820616b92d3c8ff5928c1870d511 Mon Sep 17 00:00:00 2001 From: dgp Date: Wed, 13 Feb 2008 19:41:20 +0000 Subject: eliminate duplicate test names --- tests/cmdIL.test | 4 ++-- tests/regexpComp.test | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/tests/cmdIL.test b/tests/cmdIL.test index 7bddb26..1f2cf73 100644 --- a/tests/cmdIL.test +++ b/tests/cmdIL.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: cmdIL.test,v 1.37 2008/01/22 11:38:34 msofer Exp $ +# RCS: @(#) $Id: cmdIL.test,v 1.38 2008/02/13 19:41:20 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -755,7 +755,7 @@ test cmdIL-7.7 {lreverse command - empty object [Bug 1876793]} { } {} testConstraint testobj [llength [info commands testobj]] -test cmdIL-7.7 {lreverse command - shared intrep [Bug 1675044]} -setup { +test cmdIL-7.8 {lreverse command - shared intrep [Bug 1675044]} -setup { teststringobj set 1 {1 2 3} testobj convert 1 list testobj duplicate 1 2 diff --git a/tests/regexpComp.test b/tests/regexpComp.test index c104a69..0278033 100644 --- a/tests/regexpComp.test +++ b/tests/regexpComp.test @@ -802,13 +802,13 @@ test regexpComp-21.11 {regexp command compiling tests} { } } {0 {}} -test regexpComp-22.1 {Bug 1810038} { +test regexpComp-22.0.1 {Bug 1810038} { evalInProc { regexp ($|^X)* {} } } 1 -test regexpComp-22.2 {regexp compile and backrefs, Bug 1857126} { +test regexpComp-22.0.2 {regexp compile and backrefs, Bug 1857126} { evalInProc { regexp -- {([bc])\1} bb } -- cgit v0.12