summaryrefslogtreecommitdiffstats
path: root/tests/reg.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/reg.test')
-rw-r--r--tests/reg.test4
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)