summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorjenn <jenn>1999-08-31 21:43:44 (GMT)
committerjenn <jenn>1999-08-31 21:43:44 (GMT)
commitcd2628004480960ab30a03f2335ad7e62bf50a50 (patch)
treebeb4b00eee3228af437c0afdc447fec8955d5a98 /library
parentf2ae9ef8a49554c65b714965c05b1dab7b9a04c4 (diff)
downloadtcl-cd2628004480960ab30a03f2335ad7e62bf50a50.zip
tcl-cd2628004480960ab30a03f2335ad7e62bf50a50.tar.gz
tcl-cd2628004480960ab30a03f2335ad7e62bf50a50.tar.bz2
* library/tcltest1.0/tcltest.tcl:
* doc/tcltest.n: * tests/README: Modified testConstraints variable so that it isn't unset every time ::tcltest::initConstraints is called and cleaned up documentation in the README file and the man page.
Diffstat (limited to 'library')
-rw-r--r--library/tcltest/tcltest.tcl4
-rw-r--r--library/tcltest1.0/tcltest.tcl4
2 files changed, 2 insertions, 6 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl
index daec879..50dbe6f 100644
--- a/library/tcltest/tcltest.tcl
+++ b/library/tcltest/tcltest.tcl
@@ -12,7 +12,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: tcltest.tcl,v 1.11 1999/08/27 18:12:26 jenn Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.12 1999/08/31 21:43:46 jenn Exp $
package provide tcltest 1.0
@@ -354,8 +354,6 @@ proc ::tcltest::initConstraintsHook {} {}
proc ::tcltest::initConstraints {} {
global tcl_platform tcl_interactive tk_version
- catch {unset ::tcltest::testConstraints}
-
# The following trace procedure makes it so that we can safely refer to
# non-existent members of the ::tcltest::testConstraints array without
# causing an error. Instead, reading a non-existent member will return 0.
diff --git a/library/tcltest1.0/tcltest.tcl b/library/tcltest1.0/tcltest.tcl
index daec879..50dbe6f 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.11 1999/08/27 18:12:26 jenn Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.12 1999/08/31 21:43:46 jenn Exp $
package provide tcltest 1.0
@@ -354,8 +354,6 @@ proc ::tcltest::initConstraintsHook {} {}
proc ::tcltest::initConstraints {} {
global tcl_platform tcl_interactive tk_version
- catch {unset ::tcltest::testConstraints}
-
# The following trace procedure makes it so that we can safely refer to
# non-existent members of the ::tcltest::testConstraints array without
# causing an error. Instead, reading a non-existent member will return 0.