From 0b6f67ac8fecd83b2b1d800423a25f9cc16cc01d Mon Sep 17 00:00:00 2001 From: dgp Date: Wed, 22 Jun 2005 16:02:38 +0000 Subject: * tests/safe.test: Backport performance improvement from reduced $::auto_path. --- ChangeLog | 9 +++++++-- tests/safe.test | 6 +++++- 2 files changed, 12 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index bd337c2..71a4025 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2005-06-22 Don Porter + + *** 8.4.11 TAGGED FOR RELEASE *** + + * tests/safe.test: Backport performance improvement from + reduced $::auto_path. + 2005-06-21 Pat Thoyts * tests/winDde.test: Added some waits to the dde server script to @@ -7,8 +14,6 @@ 2005-06-21 Kevin Kenny - *** 8.4.11 TAGGED FOR RELEASE *** - * generic/tclFileName.c: Corrected a problem where a directory name containing a colon can crash the process on Windows [Bug 1194458]. * tests/fileName.test: Added test for [file split] and diff --git a/tests/safe.test b/tests/safe.test index 21fad12..a26cb92 100644 --- a/tests/safe.test +++ b/tests/safe.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: safe.test,v 1.13 2002/05/10 18:47:11 dgp Exp $ +# RCS: @(#) $Id: safe.test,v 1.13.2.1 2005/06/22 16:02:42 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -21,6 +21,9 @@ foreach i [interp slaves] { interp delete $i } +set saveAutoPath $::auto_path +set ::auto_path [info library] + # Force actual loading of the safe package # because we use un exported (and thus un-autoindexed) APIs # in this test result arguments: @@ -519,6 +522,7 @@ test safe-11.8 {testing safe encoding} { } {1 {wrong # args: should be "encoding convertto ?encoding? data"} {}} +set ::auto_path $saveAutoPath # cleanup ::tcltest::cleanupTests return -- cgit v0.12