* tests/main.test: Cheap fix for [Bugs 575851, 575858]. Avoid

        * tests/tcltest.test:   non-writable . by [cd [temporaryDirectory]].

        * library/auto.tcl: Fix [tcl_findLibrary] to be sure it sets
        $varName only if a successful library script is found.  [Bug 577033]

1 files changed, 6 insertions, 1 deletions

diff --git a/tests/main.test b/tests/main.test
index 997a645..bb1b8d0 100644
--- a/tests/main.test
+++ b/tests/main.test
@@ -1,6 +1,6 @@
 # This file contains a collection of tests for generic/tclMain.c.
 #
-# RCS: @(#) $Id: main.test,v 1.9 2002/05/31 23:16:17 dgp Exp $
+# RCS: @(#) $Id: main.test,v 1.10 2002/07/03 19:40:31 dgp Exp $
 
 if {[catch {package require tcltest 2.0.2}]} {
     puts stderr "Skipping tests in [info script]. tcltest 2.0.2 required."
@@ -15,6 +15,8 @@ namespace eval ::tcl::test::main {
     namespace import ::tcltest::cleanupTests
     namespace import ::tcltest::makeFile
     namespace import ::tcltest::removeFile
+    namespace import ::tcltest::temporaryDirectory
+    namespace import ::tcltest::workingDirectory
 
     # Is [exec] defined?
     testConstraint exec [llength [info commands exec]]
@@ -40,6 +42,7 @@ namespace eval ::tcl::test::main {
 	}
     }
 
+    cd [temporaryDirectory]
     # Tests Tcl_Main-1.*: variable initializations
 
     test Tcl_Main-1.1 {
@@ -1169,6 +1172,8 @@ namespace eval ::tcl::test::main {
 	file delete result
     } -result "1\nfoo\n"
 
+    cd [workingDirectory]
+
     cleanupTests
 }