[Tcl-bugs] [ tcl-Bugs-1035775 ] filesystem-7.6 and 7.7 fail

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

Bugs item #1035775, was opened at 2004-09-27 22:12
Message generated for change (Comment added) made by vincentdarley
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=1035775&group_id=10894

Category: 36. File System
Group: development: 8.5a2
Status: Open
Resolution: None
Priority: 5
Submitted By: Kevin B KENNY (kennykb)
Assigned to: Vince Darley (vincentdarley)
Summary: filesystem-7.6 and 7.7 fail

Initial Comment:
On Red Hat Enterprise 3, runnning with the HEAD as of
2004-09-27 2300 UTC, I get the following two test
failures:

==== filesystem-7.6 cross-filesystem dir copy with
-force FAILED
==== Contents of test case:
 
    set dir [pwd]
    cd [tcltest::temporaryDirectory]
    file delete -force simpledir
    file mkdir simpledir
    file mkdir dir2
    set fout [open [file join simpledir simplefile] w]
    puts -nonewline $fout "1234567890"
    close $fout
    testsimplefilesystem 1
    # First copy should succeed
    set res [catch {file copy simplefs:/simpledir dir2}
err]
    lappend res $err
    # Second copy should fail (no -force)
    lappend res [catch {file copy simplefs:/simpledir
dir2} err]
    lappend res $err
    # Third copy should succeed (-force)
    lappend res [catch {file copy -force
simplefs:/simpledir dir2} err]
    lappend res $err
    lappend res [file exists [file join dir2
simpledir]]  [file exists [file join dir2 simpledir
simplefile]]
    testsimplefilesystem 0
    file delete -force simpledir
    file delete -force dir2
    cd $dir
    set res
 
---- Result was:
1 {error copying "simplefs:/simpledir": no such file or
directory} 1 {error copying "simplefs:/simpledir": no
such file or directory} 1 {error copying
"simplefs:/simpledir": no such file or directory} 0 0
---- Result should have been (exact matching):
0 {} 1 {error copying "simplefs:/simpledir" to
"dir2/simpledir": file already exists} 0 {} 1 1
==== filesystem-7.6 FAILED
 
 
==== filesystem-7.7 cross-filesystem dir copy with
-force FAILED
==== Contents of test case:
 
    set dir [pwd]
    cd [tcltest::temporaryDirectory]
    file delete -force simpledir
    file mkdir simpledir
    file mkdir dir2
    set fout [open [file join simpledir simplefile] w]
    puts -nonewline $fout "1234567890"
    close $fout
    testsimplefilesystem 1
    # First copy should succeed
    set res [catch {file copy simplefs:/simpledir dir2}
err]
    lappend res $err
    # Second copy should fail (no -force)
    lappend res [catch {file copy simplefs:/simpledir
dir2} err]
    lappend res $err
    # Third copy should succeed (-force)
    # I've noticed on some Unices that this only succeeds
    # intermittently (some runs work, some fail).  This
needs
    # examining further.
    lappend res [catch {file copy -force
simplefs:/simpledir dir2} err]
    lappend res $err
    lappend res [file exists [file join dir2
simpledir]]  [file exists [file join dir2 simpledir
simplefile]]
    testsimplefilesystem 0
    file delete -force simpledir
    file delete -force dir2
    cd $dir
    set res
 
---- Result was:
1 {error copying "simplefs:/simpledir": no such file or
directory} 1 {error copying "simplefs:/simpledir": no
such file or directory} 1 {error copying
"simplefs:/simpledir": no such file or directory} 0 0
---- Result should have been (exact matching):
0 {} 1 {error copying "simplefs:/simpledir" to
"dir2/simpledir": file already exists} 0 {} 1 1
==== filesystem-7.7 FAILED
 


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

>Comment By: Vince Darley (vincentdarley)
Date: 2004-09-28 08:47

Message:
Logged In: YES 
user_id=32170

Did these break as a result of my check-in yesterday, or
have they been broken for a long time?


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

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