Tcl Source Code

View Ticket
Login
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: Closed Last Modified: 2020-11-17 09:10:34
Resolution: Fixed Closed By: oehhar
    Closed on: 2020-11-17 09:10:34
Description: (text/x-fossil-wiki)
Test "chan-io-52.11" fails as follows:
<verbatim>
==== 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:
4
---- Result should have been (exact matching):
3
==== chan-io-52.11 FAILED
</verbatim>
for

   *   tcl 8.6.6rc1
   *   Platform: Win 10 GER 64 bit
   *   Compiled by: MS-VC6 + PSDK2003SP1, Makefile.vc
User Comments: oehhar added on 2020-11-17 09:10:34: (text/x-fossil-wiki)
fixed: https://wiki.tcl-lang.org/page/Test+Suite+Log