diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-12 15:16:50 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-12 15:16:50 (GMT) |
commit | 4c50ff6e1ca69347d7307c7f07c588f0fc86368d (patch) | |
tree | bfd56dd8eb0beae4bdf1ce4e2238affd798e3f1b /tests-perf | |
parent | 18c447499e3cad65a00ecb5455ae1e3f3b9e752a (diff) | |
download | tcl-4c50ff6e1ca69347d7307c7f07c588f0fc86368d.zip tcl-4c50ff6e1ca69347d7307c7f07c588f0fc86368d.tar.gz tcl-4c50ff6e1ca69347d7307c7f07c588f0fc86368d.tar.bz2 |
Add lot's of "-encoding utf-8" to our own "source" commands: We are becoming more independant from the system encoding.
Diffstat (limited to 'tests-perf')
-rw-r--r-- | tests-perf/chan.perf.tcl | 2 | ||||
-rw-r--r-- | tests-perf/clock.perf.tcl | 2 | ||||
-rw-r--r-- | tests-perf/list.perf.tcl | 2 | ||||
-rw-r--r-- | tests-perf/timer-event.perf.tcl | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/tests-perf/chan.perf.tcl b/tests-perf/chan.perf.tcl index 2ef87cb..56acccf 100644 --- a/tests-perf/chan.perf.tcl +++ b/tests-perf/chan.perf.tcl @@ -17,7 +17,7 @@ if {![namespace exists ::tclTestPerf]} { - source [file join [file dirname [info script]] test-performance.tcl] + source -encoding utf-8 [file join [file dirname [info script]] test-performance.tcl] } diff --git a/tests-perf/clock.perf.tcl b/tests-perf/clock.perf.tcl index 35fe219..bbfdc67 100644 --- a/tests-perf/clock.perf.tcl +++ b/tests-perf/clock.perf.tcl @@ -22,7 +22,7 @@ if {[info exists ::argv0] && [file tail $::argv0] eq [file tail [info script]]} ## common test performance framework: if {![namespace exists ::tclTestPerf]} { - source [file join [file dirname [info script]] test-performance.tcl] + source -encoding utf-8 [file join [file dirname [info script]] test-performance.tcl] } namespace eval ::tclTestPerf-TclClock { diff --git a/tests-perf/list.perf.tcl b/tests-perf/list.perf.tcl index 121a922..564fad0 100644 --- a/tests-perf/list.perf.tcl +++ b/tests-perf/list.perf.tcl @@ -17,7 +17,7 @@ if {![namespace exists ::tclTestPerf]} { - source [file join [file dirname [info script]] test-performance.tcl] + source -encoding utf-8 [file join [file dirname [info script]] test-performance.tcl] } diff --git a/tests-perf/timer-event.perf.tcl b/tests-perf/timer-event.perf.tcl index f68a56a..8256a0e 100644 --- a/tests-perf/timer-event.perf.tcl +++ b/tests-perf/timer-event.perf.tcl @@ -17,7 +17,7 @@ if {![namespace exists ::tclTestPerf]} { - source [file join [file dirname [info script]] test-performance.tcl] + source -encoding utf-8 [file join [file dirname [info script]] test-performance.tcl] } |