* Stopped checking for writeability of -tmpdir value because no

	default directory can be guaranteed to be writeable.

2 files changed, 14 insertions, 4 deletions

diff --git a/ChangeLog b/ChangeLog
index a917ff4..b672f8e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2002-06-30  Don Porter  <dgp@users.sourceforge.net>
 
+	* library/tcltest/tcltest.tcl:	Stopped checking for writeability
+	of -tmpdir value because no default directory can be guaranteed to
+	be writeable.
+
 	* tests/autoMkindex.tcl: removed.
 	* tests/pkg/samename.tcl: removed.
 	* tests/pkg/magicchar.tcl: removed.
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl
index 6e64f2e..ee98397 100644
--- a/library/tcltest/tcltest.tcl
+++ b/library/tcltest/tcltest.tcl
@@ -16,7 +16,7 @@
 # Contributions from Don Porter, NIST, 2002.  (not subject to US copyright)
 # All rights reserved.
 #
-# RCS: @(#) $Id: tcltest.tcl,v 1.61 2002/07/01 02:29:22 dgp Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.62 2002/07/01 04:56:11 dgp Exp $
 
 package require Tcl 8.3		;# uses [glob -directory]
 namespace eval tcltest {
@@ -650,9 +650,15 @@ namespace eval tcltest {
 	    file mkdir $directory
 	}
 	set directory [AcceptDirectory $directory]
-	if {![file writable $directory]} {
-	    return -code error "\"$directory\" is not writeable"
-	}
+	#
+	# Would be good to test that the -tmpdir is a writeable
+	# directory, but then we need a default value that we
+	# can guarantee will pass the writeability test, and there
+	# doesn't seem to be one.
+	#
+	#if {![file writable $directory]} {
+	#    return -code error "\"$directory\" is not writeable"
+	#}
 	return $directory
     }