Tcl Source Code

If [info nameof] contains a space, two tests in
encoding.test fail.  The fault is in the test suite
and not the encoding system.

The attached patch fixes it.

==== encoding-24.1 EscapeFreeProc on open channels FAILED
==== Contents of test case:

    # Bug #524674 input
    set f [open iso2022.tcl w]
    puts $f {
set f [open iso2022.txt]
fconfigure $f -encoding iso2022-jp
gets $f
    }
    close $f
    exec [list $::tcltest::tcltest] iso2022.tcl

---- Result was:
couldn't execute "{C:\Documents and Settings\kevin\My
Documents\SourceForge\tcl\win\Release\tcltest.exe}": no
such file or directory
---- Result should have been (exact matching):

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== encoding-24.1 FAILED


==== encoding-24.2 EscapeFreeProc on open channels FAILED
==== Contents of test case:

    # Bug #524674 output
    set f [open iso2022.tcl w]
    puts $f {
fconfigure stdout -encoding iso2022-jp
puts ab\u4e4e\u68d9g
exit
    }
    close $f
    viewable [exec [list $::tcltest::tcltest] iso2022.tcl]

---- Result was:
couldn't execute "{C:\Documents and Settings\kevin\My
Documents\SourceForge\tcl\win\Release\tcltest.exe}": no
such file or directory
---- Result should have been (exact matching):
ab$B8C$(DD%(Bg (ab\u001b$B8C\u001b$(DD%\u001b(Bg)
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== encoding-24.2 FAILED

Logged In: YES 
user_id=148712

Committed.

File Added - 22063: encoding.test.diff