diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-17 08:16:31 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-17 08:16:31 (GMT) |
commit | b4d145c3c9664bde6af373093492a97105121549 (patch) | |
tree | bc3b3508aabc99425150de77ddcf8a8163e4321b /tests/autoMkindex.test | |
parent | b12861c652f58f4cecf9abdd0c1c2fcc0da31a37 (diff) | |
parent | bfe130956f0d198332bdcfaa5be110b24fc0237c (diff) | |
download | tcl-b4d145c3c9664bde6af373093492a97105121549.zip tcl-b4d145c3c9664bde6af373093492a97105121549.tar.gz tcl-b4d145c3c9664bde6af373093492a97105121549.tar.bz2 |
Merge 8.6
Diffstat (limited to 'tests/autoMkindex.test')
-rw-r--r-- | tests/autoMkindex.test | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/tests/autoMkindex.test b/tests/autoMkindex.test index 214a969..0a6db99 100644 --- a/tests/autoMkindex.test +++ b/tests/autoMkindex.test @@ -125,7 +125,7 @@ test autoMkindex-1.2 {build tclIndex based on a test file} { auto_mkindex . autoMkindex.tcl file exists tclIndex } {1} -set element "{source [file join . autoMkindex.tcl]}" +set element "{source -encoding utf-8 [file join . autoMkindex.tcl]}" test autoMkindex-1.3 {examine tclIndex} -setup { file delete tclIndex } -body { @@ -133,7 +133,7 @@ test autoMkindex-1.3 {examine tclIndex} -setup { namespace eval tcl_autoMkindex_tmp { set dir "." variable auto_index - source tclIndex + source -encoding utf-8 tclIndex set ::result "" foreach elem [lsort [array names auto_index]] { lappend ::result [list $elem $auto_index($elem)] @@ -190,13 +190,13 @@ test autoMkindex-3.2 {auto_mkindex_parser::command} -setup { variable index variable scriptFile append index [list set auto_index([fullname $name])] \ - " \[list source \[file join \$dir [list $scriptFile]\]\]\n" + " \[list source -encoding utf-8 \[file join \$dir [list $scriptFile]\]\]\n" } auto_mkindex . autoMkindex.tcl namespace eval tcl_autoMkindex_tmp { set dir "." variable auto_index - source tclIndex + source -encoding utf-8 tclIndex set ::result "" foreach elem [lsort [array names auto_index]] { lappend ::result [list $elem $auto_index($elem)] @@ -216,13 +216,13 @@ test autoMkindex-3.3 {auto_mkindex_parser::command} -setup { variable scriptFile puts "my proc $name" append index [list set auto_index([fullname $name])] \ - " \[list source \[file join \$dir [list $scriptFile]\]\]\n" + " \[list source -encoding utf-8 \[file join \$dir [list $scriptFile]\]\]\n" } auto_mkindex . autoMkindex.tcl namespace eval tcl_autoMkindex_tmp { set dir "." variable auto_index - source tclIndex + source -encoding utf-8 tclIndex set ::result "" foreach elem [lsort [array names auto_index]] { lappend ::result [list $elem $auto_index($elem)] @@ -266,7 +266,7 @@ test autoMkindex-3.4 {ensemble commands in tclIndex} { set result [lsort $dat] close $f set result -} {{set auto_index(::wok::commands) [list source [file join $dir ensemblecommands.tcl]]} {set auto_index(::wok::vars) [list source [file join $dir ensemblecommands.tcl]]} {set auto_index(wok) [list source [file join $dir ensemblecommands.tcl]]}} +} {{set auto_index(::wok::commands) [list source -encoding utf-8 [file join $dir ensemblecommands.tcl]]} {set auto_index(::wok::vars) [list source -encoding utf-8 [file join $dir ensemblecommands.tcl]]} {set auto_index(wok) [list source -encoding utf-8 [file join $dir ensemblecommands.tcl]]}} removeFile ensemblecommands.tcl test autoMkindex-4.1 {platform independent source commands} -setup { @@ -303,7 +303,7 @@ test autoMkindex-4.1 {platform independent source commands} -setup { catch {close $f} removeFile [file join pkg samename.tcl] removeDirectory pkg -} -result {{set auto_index(::college::team) [list source [file join $dir pkg samename.tcl]]} {set auto_index(::pro::team) [list source [file join $dir pkg samename.tcl]]}} +} -result {{set auto_index(::college::team) [list source -encoding utf-8 [file join $dir pkg samename.tcl]]} {set auto_index(::pro::team) [list source -encoding utf-8 [file join $dir pkg samename.tcl]]}} test autoMkindex-5.1 {escape magic tcl chars in general code} -setup { file delete tclIndex @@ -327,7 +327,7 @@ test autoMkindex-5.1 {escape magic tcl chars in general code} -setup { catch {close $f} removeFile [file join pkg magicchar.tcl] removeDirectory pkg -} -result {set auto_index(testProc) [list source [file join $dir pkg magicchar.tcl]]} +} -result {set auto_index(testProc) [list source -encoding utf-8 [file join $dir pkg magicchar.tcl]]} test autoMkindex-5.2 {correctly locate auto loaded procs with []} -setup { file delete tclIndex makeDirectory pkg |