diff options
| author | jenn <jenn> | 1999-08-31 21:43:44 (GMT) |
|---|---|---|
| committer | jenn <jenn> | 1999-08-31 21:43:44 (GMT) |
| commit | cd2628004480960ab30a03f2335ad7e62bf50a50 (patch) | |
| tree | beb4b00eee3228af437c0afdc447fec8955d5a98 /library | |
| parent | f2ae9ef8a49554c65b714965c05b1dab7b9a04c4 (diff) | |
| download | tcl-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.tcl | 4 | ||||
| -rw-r--r-- | library/tcltest1.0/tcltest.tcl | 4 |
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. |