[Tcl-bugs] [ tcl-Bugs-1550851 ] new fCmd-28 test suit failures

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

Bugs item #1550851, was opened at 2006-09-02 10:52
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=1550851&group_id=10894

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: 36. File System
Group: development: 8.5a5
Status: Open
Resolution: None
Priority: 5
Submitted By: Daniel South (wildcard_25)
Assigned to: Vince Darley (vincentdarley)
Summary: new fCmd-28 test suit failures

Initial Comment:
Tcl: cvs head 02-09-2006
OS: WinXP

New test failures in head when going from tclWinFile 
v1.85 -> v1.86

fCmd-28.9.1 was already failing before the update, 
it's previous result string was '2 0 abc.file 3'

fCmd.test

==== fCmd-28.9 file link: success with file FAILED
==== Contents of test case:

    cd [temporaryDirectory]
    file delete -force abc.link
    set res [list [catch {file link abc.link 
abc.file} msg] $msg]
    cd [workingDirectory]
    set res

---- Result was:
0 D:/Tcl/src_tcl/win/abc.file
---- Result should have been (exact matching):
0 abc.file
==== fCmd-28.9 FAILED


==== fCmd-28.9.1 file link: success with file FAILED
==== Contents of test case:

    cd [temporaryDirectory]
    file delete -force abc.link
    set res {}
    file stat abc.file arr ; lappend res $arr(nlink)
    lappend res [catch {file link abc.link abc.file} 
msg] $msg
    file stat abc.file arr ; lappend res $arr(nlink)
    cd [workingDirectory]
    set res

---- Result was:
2 0 D:/Tcl/src_tcl/win/abc.file 3
---- Result should have been (exact matching):
1 0 abc.file 2
==== fCmd-28.9.1 FAILED


==== fCmd-28.11 file link: success with directory 
FAILED
==== Contents of test case:

    cd [temporaryDirectory]
    file delete -force abc.link
    set res [list [catch {file link abc.link abc.dir} 
msg] $msg]
    cd [workingDirectory]
    set res

---- Result was:
0 D:/Tcl/src_tcl/win/abc.dir
---- Result should have been (exact matching):
0 abc.dir
==== fCmd-28.11 FAILED


==== fCmd-28.19 file link: relative paths FAILED
==== Contents of test case:

    cd [temporaryDirectory]
    file mkdir d1/d2/d3
    set res [list [catch {file link d1/l2 d1/d2} err] 
$err]
    lappend res [catch {file delete -force d1} err] 
$err

---- Result was:
0 D:/Tcl/src_tcl/win/d1/d2 0 {}
---- Result should have been (exact matching):
0 d1/d2 0 {}
==== fCmd-28.19 FAILED


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

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