use strict; use Test::More tests => 5; use HTML::MobileJp::Filter::Content; my $content = HTML::MobileJp::Filter::Content->new(html => '
aaa
'); ok $content->_current eq 'html'; my $xml = $content->as_xml; ok $content->_current eq 'xml'; isa_ok $xml, 'XML::LibXML::Document'; my ($node) = $xml->findnodes('//div'); $node->appendText("zzz"); $content->update($xml); is $content->as_html, qq(\n
aaazzz
\n); is "$content", $content->as_html, 'stringfy';