Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Prevent the 'array set' commands in the 'utf.test' file from causing problems if there are pre-existing scalar variables. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
ad6de6383391bd4d55f33b41d22795f3 |
User & Date: | mistachkin 2016-01-11 19:46:30 |
Context
2016-01-11
| ||
19:59 | Use absolute path for the Tcl private stubs directory in 'configure'. ... (check-in: 39f53e08 user: mistachkin tags: trunk) | |
19:46 | Prevent the 'array set' commands in the 'utf.test' file from causing problems if there are pre-existing scalar variables. ... (check-in: ad6de638 user: mistachkin tags: trunk) | |
00:43 | Modify 'th1-tcl' test to make it run outside of the Fossil source checkout. ... (check-in: 18d7d266 user: mistachkin tags: trunk) | |
Changes
Changes to test/utf.test.
︙ | ︙ | |||
37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | set result [string map [list %TEMP% $tempPath \r\n \n] $result] # if {$::RESULT ne $result} {puts stdout $::RESULT} test utf-check-$testname.$i {$::RESULT eq $result} incr i } } array set enc [list \ 0 binary \ 1 binary \ 2 unicode \ 3 unicode-reverse \ ] array set bom [list \ 0 "" \ 1 \xEF\xBB\xBF \ 2 [expr {$tcl_platform(byteOrder) eq "littleEndian" ? \ "\xFF\xFE" : "\xFE\xFF"}] \ 3 [expr {$tcl_platform(byteOrder) eq "littleEndian" ? \ "\xFE\xFF" : "\xFF\xFE"}] \ ] array set data [list \ 0 "" \ 1 \r \ 2 \n \ 3 \r\n \ 4 \rA \ 5 \rAB \ | > > > | 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 | set result [string map [list %TEMP% $tempPath \r\n \n] $result] # if {$::RESULT ne $result} {puts stdout $::RESULT} test utf-check-$testname.$i {$::RESULT eq $result} incr i } } unset -nocomplain enc array set enc [list \ 0 binary \ 1 binary \ 2 unicode \ 3 unicode-reverse \ ] unset -nocomplain bom array set bom [list \ 0 "" \ 1 \xEF\xBB\xBF \ 2 [expr {$tcl_platform(byteOrder) eq "littleEndian" ? \ "\xFF\xFE" : "\xFE\xFF"}] \ 3 [expr {$tcl_platform(byteOrder) eq "littleEndian" ? \ "\xFE\xFF" : "\xFF\xFE"}] \ ] unset -nocomplain data array set data [list \ 0 "" \ 1 \r \ 2 \n \ 3 \r\n \ 4 \rA \ 5 \rAB \ |
︙ | ︙ | |||
237 238 239 240 241 242 243 244 245 246 247 248 249 250 | 176 \xF4\x8F\xBF\xBF\r\n \ 177 \xF4\x90\x80\x80\x00 \ 178 \xF4\x90\x80\x80\r \ 179 \xF4\x90\x80\x80\n \ 180 \xF4\x90\x80\x80\r\n \ ] array set extraData [list \ 0 "" \ 1 Z \ ] proc deleteTestFiles {path num} { set fn $num | > | 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 | 176 \xF4\x8F\xBF\xBF\r\n \ 177 \xF4\x90\x80\x80\x00 \ 178 \xF4\x90\x80\x80\r \ 179 \xF4\x90\x80\x80\n \ 180 \xF4\x90\x80\x80\r\n \ ] unset -nocomplain extraData array set extraData [list \ 0 "" \ 1 Z \ ] proc deleteTestFiles {path num} { set fn $num |
︙ | ︙ |