diff options
| author | dgp <dgp@users.sourceforge.net> | 2002-07-03 00:41:38 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2002-07-03 00:41:38 (GMT) |
| commit | 05a656a52a101ad5b81f2f2bc1dbaa8575ec8790 (patch) | |
| tree | 05fd132d0694c206fef1378d04ef542e6b5a1f1b /library | |
| parent | 081bc1616432a2bdd7671f9a6b005427634cdcee (diff) | |
| download | tcl-05a656a52a101ad5b81f2f2bc1dbaa8575ec8790.zip tcl-05a656a52a101ad5b81f2f2bc1dbaa8575ec8790.tar.gz tcl-05a656a52a101ad5b81f2f2bc1dbaa8575ec8790.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.
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] |