[Tclxml-users] More on tcldom 2.2

[Larry W. V. <lv...@ca...>]

Okay, I decided to just run the configure in tcldom-2.2/src and see what
happened.  I got it to configure, the code built (with lots of warnings
about prototype problems - but I'm using Tcl 8.4 b2 so that doesn't
surprise me).

Then I did a make test and got this as the summary:

all.tcl:        Total   326     Passed  159     Skipped 144     Failed  23
Sourced 11 Test Files.
Files with failing tests: DOMImplementation.test element.test node.test parse.te
st serialization.test xmlswitch.test zzlast.test
Number of tests skipped for each constraint:
        114     dom_c
        1       dom_libxml2
        13      dom_tcl
        1       dom_tcl || dom_libxml2
        2       dom_tcl || tcl_libxml2
        2       emptyTest
        3       knownBug
        8       as

some of the failed tests include:
/usr/ccs/bin/ld -G -z text -o tcldom2.0g.so -R /usr/tcl84/lib \
        tcldompro.o tdpExpat.o traversal.o livelist.o -L/usr/tcl84/lib -lexpat0.
2 -L/usr/tcl84/lib -ltclstub8.4g -L/usr/tcl84/lib -ltclstub8.4g
TCLLIBPATH=`pwd` ; export TCLLIBPATH ;  \
    (cd ../tests ; \
     /usr/tcl84/bin/tclsh8.4 all.tcl -verbose b) 2>&1 | tee test.log
DOMImplementation.test
Loaded dom version 2.2 via {
    if {[catch {package require dom::generic 2.2}]} {
        package require dom::tclgeneric
    } else {
        catch {package require dom::c}
        catch {package require dom::libxml2 2.2}
    }
    package provide dom 2.2

    # Both the C and pure Tcl versions of the generic layer
    # make use of the Tcl implementation.

    package require dom::tcl
}

==== DOMImplementation-3.5 destroy an element node FAILED
==== Contents of test case:

    set doc [dom::DOMImplementation create]
    set root [dom::document createElement $doc top]
    set node1 [dom::document createElement $root node]
    set node2 [dom::document createElement $root node]
    dom::node removeChild $root $node1
    dom::DOMImplementation destroy $node1

    dom::DOMImplementation serialize $doc
---- Result was:
<?xml version='1.0'?>
<!DOCTYPE top>
<top><node/></top>
---- Result should have been (exact matching):
<?xml version="1.0"?>
<!DOCTYPE top>
<top><node/></top>

==== DOMImplementation-3.5 FAILED

error "no element found" at line 1 character 0
    while executing
"$parser parse [lindex $args 0]"
doctype.test
document.test
element.test
==== element-4.1 getAttribute FAILED
==== Contents of test case:

    dom::element getAttribute $e1 class

---- Result was:

---- Result should have been (exact matching):
success
==== element-4.1 FAILED
node.test

==== node-4.1 cget -childNodes FAILED
==== Contents of test case:

    set [::dom::node cget $doc -childNodes]

---- Result was:
::dom::tcl::document10(node3) ::dom::tcl::document10(node2)
---- Result should have been (exact matching):
::dom::tcl::document10(node2)
==== node-4.1 FAILED

==== node-4.4 cget -childNodes textNode FAILED
==== Contents of test case:

    set [::dom::node cget $child2 -childNodes]

---- Result was:
can't read "": no such variable
---- Result should have been (exact matching):

---- Test completed normally; Return code was: 0
---- Return code should have been one of: 0 2
==== node-4.4 FAILED

==== node-4.5 configure -childNodes FAILED
==== Contents of test case:

    set [::dom::node configure $doc -childNodes]

---- Result was:
::dom::tcl::document10(node3) ::dom::tcl::document10(node2)
---- Result should have been (exact matching):
::dom::tcl::document10(node2)
==== node-4.5 FAILED

==== node-4.8 cget -childNodes textNode FAILED
==== Contents of test case:

    set [::dom::node configure $child2 -childNodes]

---- Result was:
can't read "": no such variable
---- Result should have been (exact matching):

---- Test completed normally; Return code was: 0
---- Return code should have been one of: 0 2

and so on - I can send all the errors if that seems useful.

Anyone with an idea what might be going wrong?
-- 
Tcl'2002 Sept 16, 2002, Vancouver, BC http://www.tcl.tk/community/tcl2002/
Larry W. Virden <mailto:lv...@ca...> <URL: http://www.purl.org/NET/lvirden/>
Even if explicitly stated to the contrary, nothing in this posting should 
be construed as representing my employer's opinions.
-><-