From bd034b72b946dbb16f1c96bd358920f3b4a577d8 Mon Sep 17 00:00:00 2001 From: davygrvy Date: Sat, 11 Sep 2004 00:39:47 +0000 Subject: tcltest-12.3-4 needed to have ::tcltest::loadScript set to empty in their -setup --- ChangeLog | 5 +++++ tests/tcltest.test | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index f79d516..bc6a328 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2004-09-10 David Gravereaux + + * tests/tcltest.test: tcltest-12.3-4 needed to have + ::tcltest::loadScript set to empty in their -setup + 2004-09-10 Donal K. Fellows * generic/tclObj.c (SetIntOrWideFromAny): Rewritten integral value diff --git a/tests/tcltest.test b/tests/tcltest.test index 9d0aa82..6e2ba7b 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.44 2004/06/23 15:36:58 dkf Exp $ +# RCS: @(#) $Id: tcltest.test,v 1.45 2004/09/11 00:39:47 davygrvy 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 {} } -- cgit v0.12