Tcl Source Code

See Tcl Bug 575817.

winPipe.test fails:

winPipe.test
Test file error: couldn't open "little": permission denied
    while executing
"open "little" w"
    invoked from within
"set f [open "little" w] "
    (file
"/tmp/dist/sandbox/tcl8.4b1/tests/winPipe.test" line 41)

Logged In: YES 
user_id=75003

Committed to head.

File Added - 26415: 575848_2.diff

Logged In: YES 
user_id=75003

Added complete patch (winPipe, pid, socket).

File Added - 26414: 575848.diff

Logged In: YES 
user_id=75003

Attaching patch for winPipe.

Logged In: YES 
user_id=80530


Also pid.test:

==== pid-1.2 pid command FAILED
==== Contents of test case:

    set f [open {| echo foo | cat >test1} w]
    set pids [pid $f]
    close $f
    catch {removeFile test1}
    list [llength $pids] [regexp {^[0-9]+$} [lindex $pids
0]]  [regexp {^[0-9]+$} [lindex $pids 1]]  [expr {[lindex
$pids 0] == [lindex $pids 1]}]

---- Result was:
couldn't write file "test1": permission denied
---- Result should have been (exact matching):
2 1 1 0
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== pid-1.2 FAILED


==== pid-1.3 pid command FAILED
==== Contents of test case:

    set f [open test1 w]
    set pids [pid $f]
    close $f
    set pids

---- Result was:
couldn't open "test1": permission denied
---- Result should have been (exact matching):

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== pid-1.3 FAILED

Logged In: YES 
user_id=80530


socket.test has many similar problems