Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Changes In Branch core-9-0-4-rc Excluding Merge-Ins
This is equivalent to a diff from f7765cbc5a to ee6cca9620
|
2026-06-26
| ||
| 18:29 | merge release check-in: 08cc9f111b user: dgp tags: core-9-0-branch | |
|
2026-06-25
| ||
| 15:31 | merge 9.0 Closed-Leaf check-in: ee6cca9620 user: dgp tags: rc2, core-9-0-4-rc, core-9-0-4 | |
| 10:52 | Merge 9.0. Indenting check-in: 401aa43b2b user: jan.nijtmans tags: trunk, main | |
| 10:47 | Update changes.md check-in: f7765cbc5a user: jan.nijtmans tags: core-9-0-branch | |
|
2026-06-24
| ||
| 15:40 | [9563b8eeec] Add test case with very compressible data check-in: 60d5caaf85 user: dkf tags: core-9-0-branch | |
|
2026-06-23
| ||
| 19:27 | merge 9.0 check-in: 9910e47982 user: dgp tags: rc1, core-9-0-4-rc | |
Changes to tests/fileSystem.test.
| ︙ | ︙ | |||
1020 1021 1022 1023 1024 1025 1026 |
string match */ [file join [pwd] foo/]
} 0
# The filesystem-11.* tests are currently disabled on MacOS.
# See Bug [e6ca0b1b67]
test filesystem-11.1 {
Bug 10890417 - case of tail is correct after normalization
| | | > > > | | > > > | | > > > > | | > > > > | 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 |
string match */ [file join [pwd] foo/]
} 0
# The filesystem-11.* tests are currently disabled on MacOS.
# See Bug [e6ca0b1b67]
test filesystem-11.1 {
Bug 10890417 - case of tail is correct after normalization
} -constraints {notWsl notOSX} -setup {
makeFile "" mIxEdCaSe.TxT
} -cleanup {
removeFile mIxEdCaSe.TxT
} -body {
lmap file1 [glob [tcltest::temporaryDirectory]/mixedcase.txt \
[tcltest::temporaryDirectory]/MIXEDCASE.TXT \
[tcltest::temporaryDirectory]/mIxEdCaSe.TxT \
] {
file normalize $file1
}
} -result [expr {
$::tcl_platform(platform) eq "windows" ?
[lrepeat 3 [tcltest::temporaryDirectory]/mIxEdCaSe.TxT]
:
[list [tcltest::temporaryDirectory]/mIxEdCaSe.TxT]}]
test filesystem-11.2 {
Bug 10890417 - case of tail is correct after normalization (-directory)
} -constraints {notWsl notOSX} -setup {
makeFile "" mIxEdCaSe.TxT
} -cleanup {
removeFile mIxEdCaSe.TxT
} -body {
lmap file1 [glob -directory [tcltest::temporaryDirectory] \
mixedcase.txt MIXEDCASE.TXT mIxEdCaSe.TxT ] {
file normalize $file1
}
} -result [expr {
$::tcl_platform(platform) eq "windows" ?
[lrepeat 3 [file join [tcltest::temporaryDirectory] mIxEdCaSe.TxT]]
:
[list [file join [tcltest::temporaryDirectory] mIxEdCaSe.TxT]]}]
test filesystem-11.3 {
Bug 10890417 - case of dir is correct after normalization
} -constraints {notWsl notOSX} -setup {
set dir [makeDirectory MiXeDcAsE]
set parent [file dirname $dir]
makeFile "" foo.txt $dir
} -cleanup {
removeFile foo.txt $dir
removeDirectory MiXeDcAsE
unset -nocomplain parent dir
} -body {
lmap file1 [glob $parent/mixedcase/foo.txt \
$parent/MIXEDCASE/foo.txt \
$parent/MiXeDcAsE/foo.txt] {
file tail [file dirname [file normalize $file1]]
}
} -result [expr {
$::tcl_platform(platform) eq "windows" ?
[lrepeat 3 MiXeDcAsE]
:
[list MiXeDcAsE]}]
test filesystem-11.4 {
Bug 10890417 - case of dir is correct after normalization (-directory)
} -constraints {notWsl notOSX} -setup {
set dir [makeDirectory MiXeDcAsE]
set parent [file dirname $dir]
makeFile "" foo.txt $dir
} -cleanup {
removeFile foo.txt $dir
removeDirectory MiXeDcAsE
unset -nocomplain parent dir
} -body {
lmap file1 [concat [glob -dir $parent/mixedcase foo.txt] \
[glob -dir $parent/MIXEDCASE foo.txt] \
[glob -dir $parent/MiXeDcAsE foo.txt]] {
file tail [file dirname [file normalize $file1]]
}
} -result [expr {
|
| ︙ | ︙ |
Changes to tests/utf.test.
| ︙ | ︙ | |||
1124 1125 1126 1127 1128 1129 1130 |
string is space \x85\u1680\u180E\u200B\u202F\u2060
} 1
test utf-24.6 {unicode space char in regc_locale.c} tip413 {
# this returns 1 with Unicode 7/TIP 413 compliance
list [regexp {^[[:space:]]+$} \x85\u1680\u180E\u200B\u202F\u2060] [regexp {^\s+$} \x85\u1680\u180E\u200B\u202F\u2060]
} {1 1}
| | | 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 |
string is space \x85\u1680\u180E\u200B\u202F\u2060
} 1
test utf-24.6 {unicode space char in regc_locale.c} tip413 {
# this returns 1 with Unicode 7/TIP 413 compliance
list [regexp {^[[:space:]]+$} \x85\u1680\u180E\u200B\u202F\u2060] [regexp {^\s+$} \x85\u1680\u180E\u200B\u202F\u2060]
} {1 1}
test utf-25.1.0 {tupper/tolower/totitle out of range values} testuniclass {
list [testuniclass 0x11FFFF] \
[testuniclass 0x1FFFFF] \
[testuniclass 0x200041] \
[testuniclass 0x200061] \
[testuniclass 0x20005F] \
[testuniclass 0x200030] \
[testuniclass 0x200020] \
|
| ︙ | ︙ |