diff options
author | dgp <dgp@noemail.net> | 2004-10-26 20:14:12 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2004-10-26 20:14:12 (GMT) |
commit | 0ac124d2a6cd005fb46c305bf2745e9349e8da55 (patch) | |
tree | d434a0b7fcce12b2effd71b0d201f00fc9b516ca /tests/tcltest.test | |
parent | 28e773e3efd5f3f3d433bfe0ae67e98ff67b7356 (diff) | |
download | tcl-0ac124d2a6cd005fb46c305bf2745e9349e8da55.zip tcl-0ac124d2a6cd005fb46c305bf2745e9349e8da55.tar.gz tcl-0ac124d2a6cd005fb46c305bf2745e9349e8da55.tar.bz2 |
* tests/compile.test (compile-12.4): Backport test for Bug 1001997.
* tests/timer.test (timer-10.1): Backport test for Bug 1016167.
* tests/tcltest.test (tcltest-12.3,4): Backport setup corrections.
* tests/error.test (error-6.3,4,7,9): Backport of some tests.
* tests/basic.test (basic-49.*):
* tests/namespace.test (namespace-8.7):
* tests/init.test (init-2.8): Updated to not rely on http package.
* generic/tclThreadTest.c (ThreadEventProc): Corrected subtle
bug where the returned (char *) from Tcl_GetStringResult(interp)
continued to be used without copying or refcounting, while
activity on the interp continued.
FossilOrigin-Name: bc0a9e3a5cdbb7a967d8d3d45a035100899ccb72
Diffstat (limited to 'tests/tcltest.test')
-rwxr-xr-x | tests/tcltest.test | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/tcltest.test b/tests/tcltest.test index 42797fa..90a87af 100755 --- a/tests/tcltest.test +++ b/tests/tcltest.test @@ -6,7 +6,7 @@ # Copyright (c) 2000 by Ajuba Solutions # All rights reserved. # -# RCS: @(#) $Id: tcltest.test,v 1.37.2.4 2004/05/26 16:24:38 dgp Exp $ +# RCS: @(#) $Id: tcltest.test,v 1.37.2.5 2004/10/26 20:14:37 dgp Exp $ # Note that there are several places where the value of # tcltest::currentFailure is stored/reset in the -setup/-cleanup @@ -822,6 +822,7 @@ test tcltest-12.2 {-loadfile load.tcl} {unixOrPc} { test tcltest-12.3 {loadScript} { -setup { set old $::tcltest::loadScript + set ::tcltest::loadScript {} } -body { set f1 [loadScript] @@ -838,6 +839,7 @@ test tcltest-12.3 {loadScript} { test tcltest-12.4 {loadFile} { -setup { set olds $::tcltest::loadScript + set ::tcltest::loadScript {} set oldf $::tcltest::loadFile set ::tcltest::loadFile {} } |