summaryrefslogtreecommitdiffstats
path: root/library/tcltest1.0
diff options
context:
space:
mode:
authorjenn <jenn>1999-09-01 23:15:41 (GMT)
committerjenn <jenn>1999-09-01 23:15:41 (GMT)
commita856dda16823c2c7b5e1648d3d70e8e9b73322e2 (patch)
tree24a1c80aa7fda92ebe3e1235f657557aec68c3e8 /library/tcltest1.0
parentb1a8d8eea5094a31668e0f08b83515a9e2828acb (diff)
downloadtcl-a856dda16823c2c7b5e1648d3d70e8e9b73322e2.zip
tcl-a856dda16823c2c7b5e1648d3d70e8e9b73322e2.tar.gz
tcl-a856dda16823c2c7b5e1648d3d70e8e9b73322e2.tar.bz2
Process command-line arguments only ::tcltest doesn't have a
child namespace (requires that command-line args are processed in that namespace)
Diffstat (limited to 'library/tcltest1.0')
-rw-r--r--library/tcltest1.0/tcltest.tcl6
1 files changed, 4 insertions, 2 deletions
diff --git a/library/tcltest1.0/tcltest.tcl b/library/tcltest1.0/tcltest.tcl
index 50dbe6f..92e85fe 100644
--- a/library/tcltest1.0/tcltest.tcl
+++ b/library/tcltest1.0/tcltest.tcl
@@ -12,7 +12,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: tcltest.tcl,v 1.12 1999/08/31 21:43:46 jenn Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.13 1999/09/01 23:15:41 jenn Exp $
package provide tcltest 1.0
@@ -1655,7 +1655,9 @@ proc ::tcltest::threadReap {} {
# Initialize the constraints and set up command line arguments
namespace eval tcltest {
::tcltest::initConstraints
- ::tcltest::processCmdLineArgs
+ if {[namespace children ::tcltest] == {}} {
+ ::tcltest::processCmdLineArgs
+ }
}
return