Fossil

Check-in [ad6de638]
Login

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: ad6de6383391bd4d55f33b41d22795f3b387eec8
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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
...
237
238
239
240
241
242
243

244
245
246
247
248
249
250
    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                                  \
................................................................................
    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







>







>









>







 







>







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
...
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
    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                                  \
................................................................................
    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