==== node-17.4 document fragment insert FAILED
==== Contents of test case:
foreach xx {abc jkl} {
set child [::dom::document createElement $doc [string toupper $xx]]
set text [::dom::document createTextNode $doc $xx]
::dom::node appendChild $fragment $child
::dom::node appendChild $child $text
}
::dom::node appendChild $top $fragment
set fragment [::dom::document createDocumentFragment $doc]
foreach xx {def ghi} {
set child2 [::dom::document createElement $doc [string toupper $xx]]
set text [::dom::document createTextNode $doc $xx]
::dom::node appendChild $fragment $child2
::dom::node appendChild $child2 $text
}
::dom::node insertBefore $top $fragment $child
::dom::DOMImplementation serialize $doc
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: no such reference child
while executing
"tcl::node insertBefore ::dom::tcl::document136::node2 ::dom::tcl::document136::
node64 ::dom::tcl::document136::node33"
("eval" body line 1)
invoked from within
"eval tcl::node $args"
(procedure "::dom::node" line 1)
invoked from within
"::dom::node insertBefore $top $fragment $child"
("uplevel" body line 16)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== node-17.4 FAILED
==== node-17.5 document fragment replace FAILED
==== Contents of test case:
foreach xx {abc def xxx} {
set child [::dom::document createElement $doc [string toupper $xx]]
set text [::dom::document createTextNode $doc $xx]
::dom::node appendChild $fragment $child
::dom::node appendChild $child $text
}
::dom::node appendChild $top $fragment
set fragment [::dom::document createDocumentFragment $doc]
foreach xx {ghi jkl} {
set child2 [::dom::document createElement $doc [string toupper $xx]]
set text [::dom::document createTextNode $doc $xx]
::dom::node appendChild $fragment $child2
::dom::node appendChild $child2 $text
}
::dom::node replaceChild $top $fragment $child
::dom::DOMImplementation serialize $doc
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: no such old child
while executing
"tcl::node replaceChild ::dom::tcl::document137::node2 ::dom::tcl::document137::
node85 ::dom::tcl::document137::node50"
("eval" body line 1)
invoked from within
"eval tcl::node $args"
(procedure "::dom::node" line 1)
invoked from within
"::dom::node replaceChild $top $fragment $child"
("uplevel" body line 16)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== node-17.5 FAILED
