Tcl Source Code: Artifact [b5bee56ac3]

Artifact b5bee56ac3269c6f5c33cb50ab0933492a1df67e:

Attachment "fileName.errs" to ticket [924276ffff] added by kennykb 2004-03-27 06:09:48.

==== filename-10.9 Tcl_TranslateFileName FAILED
==== Contents of test case:

    global env
    set temp $env(HOME)
    set env(HOME) "/home/test/"
    testsetplatform unix
    set result [list [catch {testtranslatefilename ~} msg] $msg]
    set env(HOME) $temp
    set result

---- Result was:
0 /home/test/
---- Result should have been (exact matching):
0 /home/test
==== filename-10.9 FAILED


==== filename-10.22 Tcl_TranslateFileName FAILED
==== Contents of test case:

    testsetplatform windows
    list [catch {testtranslatefilename foo//bar} msg] $msg

---- Result was:
0 {foo\\bar}
---- Result should have been (exact matching):
0 {foo\bar}
==== filename-10.22 FAILED