Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Disable tests for bug 1ecea011 |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | tip-726-plus |
| Files: | files | file ages | folders |
| SHA3-256: |
13c2631e689a60ee565994497f1b07e6 |
| User & Date: | apnadkarni 2025-07-25 16:05:25.550 |
Context
|
2025-07-25
| ||
| 17:34 | Implement unicode toXXXX congruent to string toXXXX check-in: 369ac8bf18 user: apnadkarni tags: tip-726-plus, tip-726-tclunidata-equivalence-proof | |
| 16:05 | Disable tests for bug 1ecea011 check-in: 13c2631e68 user: apnadkarni tags: tip-726-plus | |
| 15:49 | Implement unicode is CLASS to match string is CLASS check-in: 7beae32e00 user: apnadkarni tags: tip-726-plus | |
Changes
Changes to tests/unicodeProperties.test.
| ︙ | ︙ | |||
67 68 69 70 71 72 73 |
foreach codePoint [lseq 0 $::tcltests::ucd::maxCodepoint] {
set ch [format %c $codePoint]
if {[dict exists $lowerChars $ch] != [unicode is lower $ch]} {
append mismatches " " U+[format %x $codePoint]
}
}
set mismatches
| | | | | 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 |
foreach codePoint [lseq 0 $::tcltests::ucd::maxCodepoint] {
set ch [format %c $codePoint]
if {[dict exists $lowerChars $ch] != [unicode is lower $ch]} {
append mismatches " " U+[format %x $codePoint]
}
}
set mismatches
} -constraints {ucdproperties bug_1ecea011} -result {Lower case mismatches:}
test unicode-is-lower-outofrange "unicode is lower out of range" -cleanup {
testobj freeallvars
} -body {
unicode is lower [teststringobj newunicode 1 0x110000]
} -constraints teststringobj -result 0
test unicode-is-upper-ucd "unicode is upper vs UCD" -setup {
set upperChars [getUppercaseChars]
} -cleanup {
unset -nocomplain upperChars
} -body {
set mismatches {Upper case mismatches:}
foreach codePoint [lseq 0 1+$::tcltests::ucd::maxCodepoint] {
set ch [format %c $codePoint]
if {[dict exists $upperChars $ch] != [unicode is upper $ch]} {
append mismatches " " U+[format %x $codePoint]
}
}
set mismatches
} -constraints {ucdproperties bug_1ecea011} -result {Upper case mismatches:}
test unicode-is-upper-outofrange "unicode is upper out of range" -cleanup {
testobj freeallvars
} -body {
unicode is upper [teststringobj newunicode 1 0x110000]
} -constraints teststringobj -result 0
|
| ︙ | ︙ |