#196 tcldom-3.1 events.test cases failure w/tcl 8.5.4

[Larry W. Virden]

==== event-9.2 Mutation event: move node FAILED
==== Contents of test case:

$l2 appendChild $l1_1
list $data(type) [list [$l1_1 isSameNode [lindex $data(target) 0]] [$l1
isSameNode [lindex $data(target) 1]] [$l2 isSameNode [lindex $data(target) 2]]
[$l1_1 isSameNode [lindex $data(target) 3]]] [list [$l1 isSameNode [lindex $dat
a(related) 0]] [lindex $data(related) 1] [lindex $data(related) 2] [lindex $data
(related) 3]] $data(prev) $data(new) $data(attrname) $data(attrchange)

---- Result was:
{DOMSubtreeModified DOMNodeInserted DOMNodeInsertedIntoDocument DOMSubtreeModifi
ed} {0 0 0 0} {0 ::dom::tcl::document69::node10 {} {}} {{} {} {} {}} {{} {} {} {
}} {{} {} {} {}} {{} {} {} {}}
---- Result should have been (exact matching):
{DOMNodeRemoved DOMSubtreeModified DOMSubtreeModified DOMNodeInserted} {1 1 1 1}
{1 {} {} {}} {{} {} {} {}} {{} {} {} {}} {{} {} {} {}} {{} {} {} {}}
==== event-9.2 FAILED

==== event-9.3 Mutation event: replace node FAILED
==== Contents of test case:

$l2 replaceChild $l1_1 $l2_1
list $data(type) [list [$l1_1 isSameNode [lindex $data(target) 0]] [$l1
isSameNode [lindex $data(target) 1]] [$l1_1 isSameNode [lindex $data(target) 2]
]] [list [$l1 isSameNode [lindex $data(related) 0]] [lindex $data(related) 1] [
lindex $data(related) 2]] $data(prev) $data(new) $data(attrname) $data(attrchan
ge)

---- Result was:
{DOMSubtreeModified DOMNodeInserted DOMNodeInsertedIntoDocument DOMSubtreeModifi
ed} {0 0 1} {0 ::dom::tcl::document70::node10 {}} {{} {} {} {}} {{} {} {} {}} {{
} {} {} {}} {{} {} {} {}}
---- Result should have been (exact matching):
{DOMNodeRemoved DOMSubtreeModified DOMNodeInserted} {1 1 1} {1 {} {}} {{} {} {}}
{{} {} {}} {{} {} {}} {{} {} {}}
==== event-9.3 FAILED