class test elements
testcase test namespace id()
assert text libraryHTML NSshort name == "html"
assert text libraryHTML NSto string() == "html"
testcase test element id()
assert text libraryPshort name == "p"
assert text libraryPto string() == "html:p"
assert text libraryDIVshort name == "div"
assert text libraryDIVto string() == "html:div"
testcase test base element()
assert elementget id == text libraryP
assert elementattributesis empty
assert elementchildren is null
testcase test make element()
node0 : base element • new(text libraryP)
nodes : [node0, node1]
assert element is base element
assert elementget id == text libraryBODY
assert elementattributesis empty
children : elementchildren
assert children is list text node
child nodes : childrennodes
assert child nodessize == 2
child0 : child nodesfirst
assert child0 is base element
assert child0get id == text libraryP
assert child0attributesis empty
assert child0children is null
child1 : child nodes[1]
assert child1 is string
assert child1 == "foo"