Tcl Source Code

Artifact dcceeec278c5359b01ce9ba6a0800da71ee58229:

==== cmdAH-29.4.1 Tcl_FileObjCmd: type FAILED
==== Contents of test case:

    set tempdir [makeDirectory temp]
    set linkdir [file join [temporaryDirectory] link.dir]
    file link -symbolic $linkdir $tempdir
    set result [file type $linkdir]
    file delete $linkdir
    removeDirectory $tempdir
    set result

---- Result was:
could not create new link "D:/SourceForge/tcl/win/link.dir" pointing to "D:/Sour
ceForge/tcl/win/temp": invalid argument
---- Result should have been (exact matching):
link
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== cmdAH-29.4.1 FAILED

==== filename-11.17.2 Tcl_GlobCmd FAILED
==== Contents of test case:

    set dir [pwd]
    set ret "error in test"
    if {[catch {
        cd $globname
        file link -symbolic link a1
        cd $dir
        set ret [list [catch {
            lsort [glob -directory $globname -join * b1]
        } msg] $msg]
    }]} {
        cd $dir
    }
    file delete [file join $globname link]
    set ret

---- Result was:
error in test
---- Result should have been (exact matching):
0 {globTest/a1/b1 globTest/link/b1}
==== filename-11.17.2 FAILED


==== filename-11.17.3 Tcl_GlobCmd FAILED
==== Contents of test case:

    set dir [pwd]
    set ret "error in test"
    if {[catch {
        cd $globname
        file link -symbolic link a1
        cd $dir
        set ret [list [catch {
            lsort [glob -directory $globname -type d *]
        } msg] $msg]
    }]} {
        cd $dir
    }
    file delete [file join $globname link]
    set ret

---- Result was:
error in test
---- Result should have been (exact matching):
0 {globTest/a1 globTest/a2 globTest/a3 globTest/link}
==== filename-11.17.3 FAILED


==== filename-11.17.4 Tcl_GlobCmd FAILED
==== Contents of test case:

    set dir [pwd]
    set ret "error in test"
    if {[catch {
        cd $globname
        file link -symbolic link a1
        cd $dir
        set ret [list [catch {
            lsort [glob -directory $globname -type l *]
        } msg] $msg]
    }]} {
        cd $dir
    }
    file delete [file join $globname link]
    set ret

---- Result was:
error in test
---- Result should have been (exact matching):
0 globTest/link
==== filename-11.17.4 FAILED