Learn how easy it is to sync an existing GitHub or Google Code repo to a SourceForge project! See Demo

Close

#1927 fileName.test needs writable .

obsolete: 8.4a5
closed-fixed
5
2002-07-05
2002-07-01
Don Porter
No

See Tcl Bug 575817.

fileName.test fails:

==== filename-4.19 Tcl_SplitPath FAILED
==== Contents of test case:

set oldDir [pwd]
set res [catch {
file mkdir tildetmp
set nastydir [file join tildetmp ./~tilde]
file mkdir $nastydir
set norm [file normalize $nastydir]
cd tildetmp
cd ./~tilde
glob -nocomplain *
set idx [string first tildetmp $norm]
set norm [string range $norm $idx end]
# fix path away so all platforms are the same
regsub {(.*):$} $norm {\1} norm
regsub -all ":" $norm "/" norm
# make sure we can delete the directory we created
cd $oldDir
file delete -force $nastydir
set norm
} err]
cd $oldDir
catch {file delete -force tildetmp}
list $res $err

---- Result was:
1 {can't create directory "tildetmp": permission denied}
---- Result should have been (exact matching):
0 tildetmp/~tilde
==== filename-4.19 FAILED

Test file error: can't create directory "globTest":
permission denied
while executing
"file mkdir globTest/a1/b1"
(file
"/tmp/dist/sandbox/tcl8.4b1/tests/fileName.test" line 1131)

Discussion

  • Don Porter
    Don Porter
    2002-07-01

    Logged In: YES
    user_id=80530

    unixFile.test also:

    ==== unixFile-1.1 Tcl_FindExecutable FAILED
    ==== Contents of test case:

    set env(PATH) ""
    testfindexecutable junk

    ---- Result was:

    ---- Result should have been (exact matching):
    /tmp/dist/sandbox/tcl8.4b1/unix/junk
    ==== unixFile-1.1 FAILED

    ==== unixFile-1.3 Tcl_FindExecutable FAILED
    ==== Contents of test case:

    set env(PATH) "/dummy:[pwd]"
    testfindexecutable junk

    ---- Result was:

    ---- Result should have been (exact matching):
    /tmp/dist/sandbox/tcl8.4b1/unix/junk
    ==== unixFile-1.3 FAILED

    ==== unixFile-1.4 Tcl_FindExecutable FAILED
    ==== Contents of test case:

    set env(PATH) "/dummy:"
    testfindexecutable junk

    ---- Result was:

    ---- Result should have been (exact matching):
    /tmp/dist/sandbox/tcl8.4b1/unix/junk
    ==== unixFile-1.4 FAILED

    ==== unixFile-1.6 Tcl_FindExecutable FAILED
    ==== Contents of test case:

    set env(PATH) "/dummy::/dummy"
    testfindexecutable junk

    ---- Result was:

    ---- Result should have been (exact matching):
    /tmp/dist/sandbox/tcl8.4b1/unix/junk
    ==== unixFile-1.6 FAILED

    ==== unixFile-1.7 Tcl_FindExecutable FAILED
    ==== Contents of test case:

    set env(PATH) ":/dummy"
    testfindexecutable junk

    ---- Result was:

    ---- Result should have been (exact matching):
    /tmp/dist/sandbox/tcl8.4b1/unix/junk
    ==== unixFile-1.7 FAILED

     
    • assigned_to: vincentdarley --> dkf
    • status: open --> closed-fixed