[Tcl-bugs] [ tcl-Bugs-558742 ] tcltest creates 'tmp' in current dir

[<no...@so...>]

Bugs item #558742, was opened at 2002-05-21 15:56
You can respond by visiting: 
http://sourceforge.net/tracker/?func=detail&atid=110894&aid=558742&group_id=10894

Category: 33. tcltest Package
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: Vince Darley (vincentdarley)
Assigned to: Donal K. Fellows (dkf)
Summary: tcltest creates 'tmp' in current dir

Initial Comment:
The tcltest package tries to create a file 'tmp' in 
the pwd.  This is particularly problematic when 'pwd' 
is inside a vfs (which can easily happen since tcltest 
is actually a part of default tclkit executables).

Furthermore, under some circumstances, even if 
the 'tmp' file is created, it is not cleaned up.

The problematic code is around line 1179 of 
tcltest.tcl:

    testConstraint stdio 0
    catch {
	catch {file delete -force tmp}
	set f [open tmp w]
	puts $f {
	    exit
	}
	close $f

	set f [open "|[list [interpreter] tmp]" r]
	close $f
	
	testConstraint stdio 1
    }
    catch {file delete -force tmp}

Problems observed are:

(i) assumption that 'tmp' is in the native filesystem 
and therefore that 'open |' will work.
(ii) assumption that 'puts $f ...' will not fail -- if 
it does, then '$f' is never closed.

It would be best if 'tmp' was put in $env(TEMP), ...



----------------------------------------------------------------------

You can respond by visiting: 
http://sourceforge.net/tracker/?func=detail&atid=110894&aid=558742&group_id=10894