use utf8; use Test::More tests => 3; BEGIN { use_ok('HTML::HTML5::Writer') }; use XML::LibXML; my $input = <foo

foo
INPUT my $parser = XML::LibXML->new; my $dom = $parser->parse_string($input); my $hwriter = HTML::HTML5::Writer->new( markup => 'html', ); my $xwriter = HTML::HTML5::Writer->new( markup => 'xhtml', polyglot => 0, doctype => HTML::HTML5::Writer::DOCTYPE_XHTML1, ); is($hwriter->document($dom), <foo

foo
HTML is($xwriter->document($dom)."\n", <foo

foo
XHTML