tDOM

Check-in [881efc6915]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:accept tcl-test options like -load "load libtdom...; source ../lib/tdom.tcl" (allow to run test-suite from development environment, other tdom-version or uninstalled)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | fix-traced-gc-regression-of-091
Files: files | file ages | folders
SHA3-256: 881efc69154519f7ef4cbf8df6739c33d86f9a3ad7acb1c34d111dc08b4e22fe
User & Date: sebres 2019-03-14 16:16:05
Context
2019-03-15
15:17
avoid usage of fallback to __tdomGC at global/NS level, this way it could prevent a leakage of tree in the global var __tdomGC (only affected if current level is global/NS) Leaf check-in: 7fca63fe3f user: sebres tags: fix-traced-gc-regression-of-091-cr1
2019-03-14
22:01
Test suite respects tcl-test options -load|-loadfile. check-in: 7a0bfb53ad user: rolf tags: trunk
16:16
accept tcl-test options like -load "load libtdom...; source ../lib/tdom.tcl" (allow to run test-suite from development environment, other tdom-version or uninstalled) Leaf check-in: 881efc6915 user: sebres tags: fix-traced-gc-regression-of-091
15:38
small amend, removing the previous trace in case to wrap to __tdomGC check-in: ff7642f303 user: sebres tags: fix-traced-gc-regression-of-091
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/loadtdom.tcl.

10
11
12
13
14
15
16


17
18
19
20
21
22
23
24
25
    # We still support 8.4 to some degree
    package require Tcl 8.4
} else {
    package require Tcl 8.4-
}
package require tcltest 2.2
namespace import ::tcltest::*


if {[catch {package require -exact tdom 0.9.2}]} {
    if {[catch {load [file join [file dir [info script]] ../unix/libtdom0.9.2.so]}]} {
        error "Unable to load the appropriate tDOM version!"
    }
}
if {[info commands ::tdom::xmlReadFile] == ""} {
    # tcldomsh without the script library. Source the lib.
    source [file join [file dir [info script]] ../lib tdom.tcl]
}






>
>









10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
    # We still support 8.4 to some degree
    package require Tcl 8.4
} else {
    package require Tcl 8.4-
}
package require tcltest 2.2
namespace import ::tcltest::*
catch {tcltest::loadTestedCommands}

if {[catch {package require -exact tdom 0.9.2}]} {
    if {[catch {load [file join [file dir [info script]] ../unix/libtdom0.9.2.so]}]} {
        error "Unable to load the appropriate tDOM version!"
    }
}
if {[info commands ::tdom::xmlReadFile] == ""} {
    # tcldomsh without the script library. Source the lib.
    source [file join [file dir [info script]] ../lib tdom.tcl]
}