use strict;
use warnings;
use HTML::Treebuilder;
use HTML::Element;
use Test::More qw(no_plan);
my $html=
'
';
my $treeroot = HTML::TreeBuilder->new;
my $html_tree = $treeroot->parse( $html);
print $html_tree->as_HTML();
#the quotes around 10 get stripped away.
#(the quotes around top are kept.)
my $wanted = q{};
my $got = $html_tree->as_HTML();
is($got, $wanted);