use strict; use warnings; use Test::More; unless ( do { local $@; eval "use HTML::TreeBuilder 5 -weak; 1" } ) { plan skip_all => 'No HTML::TreeBuilder 5 -weak'; } use_ok('HTML::Gumbo'); my $parser = HTML::Gumbo->new; my $res = $parser->parse(<<'END', format => 'tree');

hello world!

END my $expected = <<'END';

hello world!

END chomp $expected; is $res->as_HTML, $expected, 'correct value'; done_testing();