Tcl Source Code

Artifact 6374c5fc037140dc7bcec501c542ce1ac0468cbb:

Index: library/tcltest/tcltest.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/tcltest/tcltest.tcl,v
retrieving revision 1.35
diff -u -r1.35 tcltest.tcl
--- library/tcltest/tcltest.tcl	11 Mar 2002 21:50:32 -0000	1.35
+++ library/tcltest/tcltest.tcl	24 Mar 2002 17:16:12 -0000
@@ -1243,7 +1243,7 @@
     return
 }
 
-if {[namespace inscope tcltest info procs initConstraintsHook] == {}} {
+if {[llength [info commands tcltest::initConstraintsHook]] == 0} {
     proc tcltest::initConstraintsHook {} {}
 }
 
@@ -1538,7 +1538,7 @@
 #       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 @@
 #       ProcessFlags.
 #
 
-if {[namespace inscope tcltest info procs processCmdLineArgsAddFlagsHook] == {}} {
+if {[llength [info commands tcltest::processCmdLineArgsAddFlagsHook]] == 0} {
     proc tcltest::processCmdLineArgsAddFlagsHook {} {}
 }
 
@@ -1635,7 +1635,7 @@
 #	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 @@
 #       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 {} {}
 }