# test six
my $par = $doc->createElement('Paragraph');
is( $par->ownerDocument(), $doc, 'Element has correct owner');

not ok 6 - Element has correct owner
#     Failed test (t/docutest.t at line 18)
#          got: 'XML::LibXML::DocumentFragment=SCALAR(0x80b5b68)'
#     expected: 'XML::LibXML::Document=SCALAR(0x804b688)'


##</code><code>##

$doc->setDocumentElement($par);
is( $par->ownerDocument(), $doc, 'Element has correct owner');