* tests/safe.test: Trim auto_path to improve performance [1080039]

FossilOrigin-Name: d81228b9c1f9b7a3985ce9fddb2b35f9017bc447

3 files changed, 19 insertions, 4 deletions

diff --git a/ChangeLog b/ChangeLog
index 1adf068..7587cc2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,10 @@
+2004-12-06  Don Porter  <dgp@users.sourceforge.net>
+
+	* tests/safe.test:	Trim auto_path to improve performance [1080039]
+
 2004-12-05  Jeff Hobbs  <jeffh@ActiveState.com>
 
-	* changes: updated for 8.4.9 release
+	* changes: updated for 8.5a2 release
 
 2004-12-04  Donal K. Fellows  <donal.k.fellows@man.ac.uk>
 
diff --git a/changes b/changes
index 966c7ef..cb7c2c7 100644
--- a/changes
+++ b/changes
@@ -2,7 +2,7 @@ This file summarizes all changes made to Tk since version 1.0 was
 released on March 13, 1991.  Changes that aren't backward compatible
 are marked specially.
 
-RCS: @(#) $Id: changes,v 1.71 2004/12/06 20:27:57 hobbs Exp $
+RCS: @(#) $Id: changes,v 1.72 2004/12/06 22:54:12 dgp Exp $
 
 3/16/91 (bug fix) Modified tkWindow.c to remove Tk's Tcl commands from
 the interpreter when the main window is deleted (otherwise there will
@@ -5802,6 +5802,9 @@ radio/checkbuttons when colors are exhausted (griffin)
 platform (steffen)
 	*** POTENTIAL INCOMPATIBILITY ***
 
+2004-03-26 (new feature)[FRQ 540375] support for
+[image create photo -format PPM -data] (fellows)
+
 2004-05-14 (bug fix)[TIP 152] -detail option for tk_messageBox (fellows)
 
 2004-06-04 (bug fix)[965398] Fix to shimmering infinite loop scrolling in
@@ -5847,6 +5850,8 @@ keys on the keypad using the Extended modifier (grossbauer, kenny)
 2004-07-27 (bug fix) Fix segfault in case of premature end of GIF image
 data (steffen)
 
+2004-08-11 (feature)[979101] [tk_getOpenFile] consults env vars (fellows)
+
 2004-08-19 (new feature)[TIP 168] Add -smooth method for alternative bezier
 curve implementations on canvas items (hellstroem, fellows)
 
@@ -5859,6 +5864,8 @@ widget subcommand (griffin, darley)
 2004-10-08 (new feature)[TIP 205] Use pkgconfig Database to register Xft
 support (english)
 
+2004-10-11 (new language) Swedish message catalog from Mats Bengtsson
+
 2004-10-19 (new feature)[TIP 204][976928] Virtual events for keyboard
 traversal (english)
 
@@ -5876,6 +5883,6 @@ thoyts)
 2004-11-28 (bug fix)[942320] Fix short integer overflow in x,y coordinates
 for long lines using unix AA fonts (english)
 
-Updated test suite and documentation
+Updated test suite, documentation, and demos.
 
 --- Released 8.5a2, December 7, 2004 --- See ChangeLog for details ---
diff --git a/tests/safe.test b/tests/safe.test
index b9232b3..fded018 100644
--- a/tests/safe.test
+++ b/tests/safe.test
@@ -6,7 +6,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: safe.test,v 1.14 2004/08/19 17:59:18 dgp Exp $
+# RCS: @(#) $Id: safe.test,v 1.15 2004/12/06 22:54:12 dgp Exp $
 
 package require tcltest 2.1
 eval tcltest::configure $argv
@@ -40,6 +40,9 @@ if {"$tcl_platform(platform)" == "windows"} {
     set hidden_cmds {bell cd clipboard encoding exec exit fconfigure file glob grab load menu open pwd selection send socket source toplevel wm}
 }
 
+set saveAutoPath $::auto_path
+set auto_path [list [info library] $::tk_library]
+
 test safe-1.1 {Safe Tk loading into an interpreter} {
     catch {safe::interpDelete a}
     safe::loadTk [safe::interpCreate a]
@@ -209,6 +212,7 @@ test safe-7.1 {canvas printing} {
 } 0
 
 # cleanup
+set ::auto_path $saveAutoPath
 unset hidden_cmds
 cleanupTests
 return