Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Run tests requiring 64-bit only with such builds. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
f6d486c6eb77fe7dd9badc20c57a7f1c |
| User & Date: | rolf 2024-05-01 23:38:47 |
Context
|
2024-05-14
| ||
| 23:51 | Added the -list option to the selectNodes method (cascading XPath expressions). check-in: 4c73cafde8 user: rolf tags: trunk | |
|
2024-05-11
| ||
| 15:08 | Update to expat 2.6.2. check-in: 0f6fcbe2d3 user: rolf tags: expat-2.6.2 | |
|
2024-05-01
| ||
| 23:38 | Run tests requiring 64-bit only with such builds. check-in: f6d486c6eb user: rolf tags: trunk | |
|
2024-02-23
| ||
| 01:12 | Added support for non BMP characters given as \u escaped surrogate pair. check-in: a15bfaa204 user: rolf tags: trunk | |
Changes
Changes to tests/dom.test.
| ︙ | ︙ | |||
718 719 720 721 722 723 724 |
}]
set root [$doc documentElement]
set result [$root attributeNames]
$doc delete
set result
} {xmlns:p xmlns foo grill bar}
| | | 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 |
}]
set root [$doc documentElement]
set result [$root attributeNames]
$doc delete
set result
} {xmlns:p xmlns foo grill bar}
test dom-2.46 {parse long string} {64bit Tcl9 longRunning} {
set str "<doc>[string repeat abc 1000000000]</doc>"
set doc [dom parse $str]
set result [string length [$doc selectNodes string(/doc)]]
lappend result [string length [$doc selectNodes substring(doc,2999999999)]]
lappend result [$doc selectNodes substring(doc,2999999995,3)]
$doc delete
set result
|
| ︙ | ︙ |
Changes to tests/html5reader.test.
| ︙ | ︙ | |||
183 184 185 186 187 188 189 |
<option value="">--
</option><option selected="selected" value="en_US">en_US
</option><option value="de_DE">de_DE
</option>
</select></form></body>
</html>}
| | | | 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 |
<option value="">--
</option><option selected="selected" value="en_US">en_US
</option><option value="de_DE">de_DE
</option>
</select></form></body>
</html>}
test html5-2.9 {HTML parsing} {64bit Tcl9 html5 longRunning} {
set result [catch {
dom parse -html5 "<doc>[string repeat [string repeat [string repeat abcde 1000] 1000] 1000]</doc>"
} errMsg]
lappend result $errMsg
} {1 {The Gumbo library doesn't support strings longer than 4 gigabytes.}}
# Gumbo has more limitations than just max 4 GByte input string length.
# test html5-2.10 {HTML parsing} {64bit Tcl9 html5 knownBug} {
# set xml [string repeat [string repeat [string repeat a 1000] 1000] 1000]
# set doc [dom parse -html5 $xml]
# $doc delete
# } {}
test html5-3.1 {Bad data} {html5} {
set data {line 6 column 17 - Warning: <script> lacks "type" attribute
|
| ︙ | ︙ |
Changes to tests/loadtdom.tcl.
| ︙ | ︙ | |||
29 30 31 32 33 34 35 |
# Package internal test constraints
if {[info procs ::tdom::extRefHandler] != ""} {
testConstraint need_uri 1
}
if {[package vsatisfies [package present Tcl] 9]} {
testConstraint Tcl9 1
}
| | | 29 30 31 32 33 34 35 36 |
# Package internal test constraints
if {[info procs ::tdom::extRefHandler] != ""} {
testConstraint need_uri 1
}
if {[package vsatisfies [package present Tcl] 9]} {
testConstraint Tcl9 1
}
testConstraint 64bit [expr {$tcl_platform(pointerSize) >= 8}]
|
Changes to tests/xmlsimple.test.
| ︙ | ︙ | |||
223 224 225 226 227 228 229 |
foreach child [$doc selectNodes /*] {
lappend result [$child parentNode]
}
$doc delete
set result
} {{} {}}
| | | 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 |
foreach child [$doc selectNodes /*] {
lappend result [$child parentNode]
}
$doc delete
set result
} {{} {}}
test simple-1.29 {parse long string} {64bit Tcl9 longRunning} {
set doc [dom parse -simple "<doc>[string repeat [string repeat [string repeat abc 1000] 1000] 1000]</doc>"]
set result [string length [$doc selectNodes string(/doc)]]
lappend result [string length [$doc selectNodes substring(doc,2999999999)]]
lappend result [$doc selectNodes substring(doc,2999999995,3)]
$doc delete
set result
} {3000000000 2 abc}
|
| ︙ | ︙ |