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);
####
my (@files, @rippers);
@files = Filecontrol::get_files($dir);
foreach my $file (@files) {
`tidy -asxml -m $file`;
}