diff options
| -rw-r--r-- | ChangeLog | 9 | ||||
| -rw-r--r-- | tests/safe.test | 6 |
2 files changed, 12 insertions, 3 deletions
@@ -1,3 +1,10 @@ +2005-06-22 Don Porter <dgp@users.sourceforge.net> + + *** 8.4.11 TAGGED FOR RELEASE *** + + * tests/safe.test: Backport performance improvement from + reduced $::auto_path. + 2005-06-21 Pat Thoyts <patthoyts@users.sourceforge.net> * tests/winDde.test: Added some waits to the dde server script to @@ -7,8 +14,6 @@ 2005-06-21 Kevin Kenny <kennykb@acm.org> - *** 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 |