tDOM

Check-in [30c2ebb89f]
Login
Bounty program for improvements to Tcl and certain Tcl packages.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:More tests to check/document behaviour in case of using traced doc vars (pattern [dom parse $xml docvar]).
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 30c2ebb89ff466c1a81378ccc39012189503c127e6f0919f93dbd584785c12f5
User & Date: rolf 2019-03-14 11:38:03
Context
2019-03-14
22:01
Test suite respects tcl-test options -load|-loadfile. check-in: 7a0bfb53ad user: rolf tags: trunk
15:24
try to explain and fix regression of traced GC, introduced in tdom 0.9.1 check-in: c466f47988 user: sebres tags: fix-traced-gc-regression-of-091
11:38
More tests to check/document behaviour in case of using traced doc vars (pattern [dom parse $xml docvar]). check-in: 30c2ebb89f user: rolf tags: trunk
2019-03-07
22:45
Made novem compatible. check-in: d41caf001d user: rolf tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/dom.test.

176
177
178
179
180
181
182













183
184
185
186
187
188
189
    dom createDocument test doc
    set result [catch {set doc foo} errMsg]
    lappend result $errMsg
    $doc delete
    unset doc
    set result
} {1 {can't set "doc": var is read-only}}














test dom-2.1 {Don't quash white space at start or end of non white space content} {
    set doc [dom parse {<root>
    some content
    </root>}]
    set root [$doc documentElement]
    $root text






>
>
>
>
>
>
>
>
>
>
>
>
>







176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
    dom createDocument test doc
    set result [catch {set doc foo} errMsg]
    lappend result $errMsg
    $doc delete
    unset doc
    set result
} {1 {can't set "doc": var is read-only}}

test dom-1.25 {Doc var} {
    dom parse <test/> doc
    dom parse <test/> doc
    unset doc
} {}

test dom-1.26 {Doc var} {
    dom parse <test/> doc
    set result [catch {$doc documentElement doc}]
    unset doc
    set result
} {1}

test dom-2.1 {Don't quash white space at start or end of non white space content} {
    set doc [dom parse {<root>
    some content
    </root>}]
    set root [$doc documentElement]
    $root text