summaryrefslogtreecommitdiffstats
path: root/library/tcltest
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2002-03-24 17:21:12 (GMT)
committerdgp <dgp@users.sourceforge.net>2002-03-24 17:21:12 (GMT)
commit8a02ee155f91a31fb66ddc39cbbf1d1bbbeb4f36 (patch)
tree9bafbc713b822de0e3466752ee59e936c8370420 /library/tcltest
parentc75824de892b2e33257084a1ba1329feee0b693d (diff)
downloadtcl-8a02ee155f91a31fb66ddc39cbbf1d1bbbeb4f36.zip
tcl-8a02ee155f91a31fb66ddc39cbbf1d1bbbeb4f36.tar.gz
tcl-8a02ee155f91a31fb66ddc39cbbf1d1bbbeb4f36.tar.bz2
* Allow non-proc commands to be used
as the customization hooks. [Bug 495662]
Diffstat (limited to 'library/tcltest')
-rw-r--r--library/tcltest/tcltest.tcl12
1 files changed, 6 insertions, 6 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl
index 8757e0d..f602d86 100644
--- a/library/tcltest/tcltest.tcl
+++ b/library/tcltest/tcltest.tcl
@@ -13,7 +13,7 @@
# Copyright (c) 2000 by Ajuba Solutions
# All rights reserved.
#
-# RCS: @(#) $Id: tcltest.tcl,v 1.35 2002/03/11 21:50:32 dgp Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.36 2002/03/24 17:21:12 dgp Exp $
# create the "tcltest" namespace for all testing variables and procedures
@@ -1243,7 +1243,7 @@ proc tcltest::PrintError {errorMsg} {
return
}
-if {[namespace inscope tcltest info procs initConstraintsHook] == {}} {
+if {[llength [info commands tcltest::initConstraintsHook]] == 0} {
proc tcltest::initConstraintsHook {} {}
}
@@ -1538,7 +1538,7 @@ proc tcltest::initConstraints {} {
# Hook used for customization of display of usage information.
#
-if {[namespace inscope tcltest info procs PrintUsageInfoHook] == {}} {
+if {[llength [info commands tcltest::PrintUsageInfoHook]] == 0} {
proc tcltest::PrintUsageInfoHook {} {}
}
@@ -1621,7 +1621,7 @@ proc tcltest::PrintUsageInfo {} {
# ProcessFlags.
#
-if {[namespace inscope tcltest info procs processCmdLineArgsAddFlagsHook] == {}} {
+if {[llength [info commands tcltest::processCmdLineArgsAddFlagsHook]] == 0} {
proc tcltest::processCmdLineArgsAddFlagsHook {} {}
}
@@ -1635,7 +1635,7 @@ if {[namespace inscope tcltest info procs processCmdLineArgsAddFlagsHook] == {}}
# flags The flags that have been pulled out of argv
#
-if {[namespace inscope tcltest info procs processCmdLineArgsHook] == {}} {
+if {[llength [info commands tcltest::processCmdLineArgsHook]] == 0} {
proc tcltest::processCmdLineArgsHook {flag} {}
}
@@ -2552,7 +2552,7 @@ proc tcltest::runTest {name description script expectedAnswer constraints} {
# additional things that should be done at cleanup.
#
-if {[namespace inscope tcltest info procs cleanupTestsHook] == {}} {
+if {[llength [info commands tcltest::cleanupTestsHook]] == 0} {
proc tcltest::cleanupTestsHook {} {}
}