diff options
| author | dgp <dgp@noemail.net> | 2003-10-06 14:30:03 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2003-10-06 14:30:03 (GMT) |
| commit | ffb1e496e2b57509f1eff102dfec0784e62b14ac (patch) | |
| tree | d81eb379e6e5cbf731a563981a715023852c6e66 /tests/reg.test | |
| parent | 4b48e951d17f301fc708bd6b009e5d6f50b51568 (diff) | |
| download | tcl-ffb1e496e2b57509f1eff102dfec0784e62b14ac.zip tcl-ffb1e496e2b57509f1eff102dfec0784e62b14ac.tar.gz tcl-ffb1e496e2b57509f1eff102dfec0784e62b14ac.tar.bz2 | |
* tests/reg.test: Corrected duplicate test names.
* tests/resource.test: [Bugs 710370, 710358]
FossilOrigin-Name: a9f7fbd39fde2d5ed3a6ccb975a6fd89a53fdb3d
Diffstat (limited to 'tests/reg.test')
| -rw-r--r-- | tests/reg.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/reg.test b/tests/reg.test index 86f0098..a4f5bea 100644 --- a/tests/reg.test +++ b/tests/reg.test @@ -9,7 +9,7 @@ # # Copyright (c) 1998, 1999 Henry Spencer. All rights reserved. # -# RCS: @(#) $Id: reg.test,v 1.16 2002/07/29 12:28:35 dkf Exp $ +# RCS: @(#) $Id: reg.test,v 1.16.2.1 2003/10/06 14:30:06 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -138,7 +138,7 @@ proc doing {major desc} { # build test number (internal) proc tno {testid} { - return [lindex $testid 0] + return [join $testid .] } # build description, with possible modifiers (internal) |