Tcl Source Code

View Ticket
Bounty program for improvements to Tcl and certain Tcl packages.
Ticket UUID: 0d645369ff34148a386ea4c7d356fd6607e62940
Title: Test "chan-io-52.11 TclCopyChannel & encodings" fails for Win32
Type: Bug Version: 8.6.6rc1
Submitter: oehhar Created on: 2016-07-26 11:59:56
Subsystem: - New Builtin Commands Assigned To: nobody
Priority: 5 Medium Severity: Minor
Status: Open Last Modified: 2016-07-26 11:59:56
Resolution: None Closed By: nobody
    Closed on:

Test "chan-io-52.11" fails as follows:

==== chan-io-52.11 TclCopyChannel & encodings FAILED
==== Contents of test case:

    # binary to encoding => the input has to be in utf-8 to make sense to the
    # encoder
    set in  [open $path(utf8-fcopy.txt) r]
    set out [open $path(kyrillic.txt) w]
    # -translation binary is also -encoding binary
    chan configure $in  -translation binary
    chan configure $out -encoding koi8-r -translation lf
    chan copy $in $out
    chan close $in
    chan close $out
    file size $path(kyrillic.txt)

---- Result was:
---- Result should have been (exact matching):
==== chan-io-52.11 FAILED
  • tcl 8.6.6rc1
  • Platform: Win 10 GER 64 bit
  • Compiled by: MS-VC6 + PSDK2003SP1,