The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
ALEXMV / HTML-Gumbo-0.13 / t / callback.t 
use strict;
use warnings;
use Test::More;

use_ok('HTML::Gumbo');

my $parser = HTML::Gumbo->new;
my $input = <<'END';
<!DOCTYPE html>
<!--This is a comment-->
<h1>hello world!</h1>
<img disabled boo="foo" />
END
my @expected = (
    ['document start', {name => 'html', public => '', system => ''}],
    ['comment', 'This is a comment'],
    ['start', 'html', []],
    ['start', 'head', []],
    ['end', 'head'],
    ['start', 'body', []],

    ['start', 'h1', []],
    ['text', 'hello world!'],
    ['end', 'h1'],
    ['space', "\n"],

    ['start', 'img', [disabled => "", boo => "foo"]],
    ['space', "\n"],

    ['end', 'body'],
    ['end', 'html'],
    ['document end'],
);
my @got;
my $res = $parser->parse($input, format => 'callback', callback => sub {
    push @got, [@_];
});

done_testing();