|
From: Larry W. V. <lv...@ca...> - 2002-08-15 13:33:46
|
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.
-><-
|