diff options
author | dgp <dgp@noemail.net> | 2002-07-03 00:41:38 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2002-07-03 00:41:38 (GMT) |
commit | cd25cc1ab64c5b60167bda6da664568656ce9680 (patch) | |
tree | 05fd132d0694c206fef1378d04ef542e6b5a1f1b /library | |
parent | 4989dc0b5e02cc5be0888b3882d27d58f1777f02 (diff) | |
download | tcl-cd25cc1ab64c5b60167bda6da664568656ce9680.zip tcl-cd25cc1ab64c5b60167bda6da664568656ce9680.tar.gz tcl-cd25cc1ab64c5b60167bda6da664568656ce9680.tar.bz2 |
* doc/tcltest.n: more refinements of the documentation.
* library/tcltest/tcltest.tcl: Added trace to be sure the stdio
constraint is updated whenever the [interpreter] changes.
FossilOrigin-Name: 6c4c21660d7ab01330fe8433429769dc5cf586c4
Diffstat (limited to 'library')
-rw-r--r-- | library/tcltest/tcltest.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl index 6871ab9..4091cdf 100644 --- a/library/tcltest/tcltest.tcl +++ b/library/tcltest/tcltest.tcl @@ -16,7 +16,7 @@ # Contributions from Don Porter, NIST, 2002. (not subject to US copyright) # All rights reserved. # -# RCS: @(#) $Id: tcltest.tcl,v 1.66 2002/07/02 19:10:57 dgp Exp $ +# RCS: @(#) $Id: tcltest.tcl,v 1.67 2002/07/03 00:41:38 dgp Exp $ package require Tcl 8.3 ;# uses [glob -directory] namespace eval tcltest { @@ -272,6 +272,8 @@ namespace eval tcltest { # Set the location of the execuatble Default tcltest [info nameofexecutable] + trace variable tcltest w [namespace code {testConstraint stdio \ + [eval [ConstraintInitializer stdio]] ;#}] # save the platform information so it can be restored later Default originalTclPlatform [array get tcl_platform] |