From d363c73bd491a731497011162ceabf6274a603c8 Mon Sep 17 00:00:00 2001 From: dgp Date: Tue, 25 May 2004 17:17:36 +0000 Subject: * tests/execute.test (execute-8.1): Updated to remove the trace set on ::errorInfo . When left in place, that trace can cause later tests to fail. --- ChangeLog | 6 ++++++ tests/execute.test | 12 ++++++++---- 2 files changed, 14 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index b1ca74f..8de7e98 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2004-05-25 Don Porter + + * tests/execute.test (execute-8.1): Updated to remove the trace + set on ::errorInfo . When left in place, that trace can cause + later tests to fail. + 2004-05-25 Donal K. Fellows * generic/tclBasic.c: Removed references to Tcl_RenameCommand from diff --git a/tests/execute.test b/tests/execute.test index 701616c..9075b28 100644 --- a/tests/execute.test +++ b/tests/execute.test @@ -14,7 +14,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: execute.test,v 1.17 2004/04/29 20:40:14 dgp Exp $ +# RCS: @(#) $Id: execute.test,v 1.18 2004/05/25 17:17:38 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -713,13 +713,17 @@ test execute-7.34 {Wide int handling} {longIs32bit} { expr {wide(0x1) * 1024 * 1024 * 1024 * 1024} } 1099511627776 -test execute-8.1 {Stack protection} { +test execute-8.1 {Stack protection} -setup { # If [Bug #804681] has not been properly # taken care of, this should segfault proc whatever args {llength $args} trace add variable ::errorInfo {write unset} whatever - catch {expr {1+9/0}} -} 1 +} -body { + expr {1+9/0} +} -cleanup { + trace remove variable ::errorInfo {write unset} whatever + rename whatever {} +} -returnCodes error -match glob -result * test execute-8.2 {Stack restoration} -body { # Test for [Bug #816641], correct restoration -- cgit v0.12