diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-06-21 14:44:17 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-06-21 14:44:17 (GMT) |
| commit | f82e67e7bfa7df973c5d4fc862b964c90ec5b72c (patch) | |
| tree | 9f7782ab6d1b00096c5ac77f4be9731e66d70f87 /tests-perf | |
| parent | e715bc67dad8fd0fc152aff7a0f595f8d5fd1286 (diff) | |
| download | tcl-f82e67e7bfa7df973c5d4fc862b964c90ec5b72c.zip tcl-f82e67e7bfa7df973c5d4fc862b964c90ec5b72c.tar.gz tcl-f82e67e7bfa7df973c5d4fc862b964c90ec5b72c.tar.bz2 | |
Revise use of "-translation binary" in testcases: Use it where usefull, don't use it any more where misleading
Diffstat (limited to 'tests-perf')
| -rw-r--r-- | tests-perf/chan.perf.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests-perf/chan.perf.tcl b/tests-perf/chan.perf.tcl index 56acccf..6bc9204 100644 --- a/tests-perf/chan.perf.tcl +++ b/tests-perf/chan.perf.tcl @@ -27,12 +27,12 @@ namespace path {::tclTestPerf} proc _get_test_chan {{bufSize 4096}} { lassign [chan pipe] ch wch; - fconfigure $ch -translation binary -encoding utf-8 -buffersize $bufSize -buffering full - fconfigure $wch -translation binary -encoding utf-8 -buffersize $bufSize -buffering full + fconfigure $ch -translation lf -encoding utf-8 -buffersize $bufSize -buffering full + fconfigure $wch -translation lf -encoding utf-8 -buffersize $bufSize -buffering full exec [info nameofexecutable] -- $bufSize >@$wch << { set bufSize [lindex $::argv end] - fconfigure stdout -translation binary -encoding utf-8 -buffersize $bufSize -buffering full + fconfigure stdout -translation lf -encoding utf-8 -buffersize $bufSize -buffering full set buf [string repeat test 1000]; # 4K # write ~ 10*1M + 10*2M + 10*10M + 1*20M: set i 0; while {$i < int((10*1e6 + 10*2e6 + 10*10e6 + 1*20e6)/4e3)} { |