==== 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