1use lib 't';
2
3use Data;
4
5use HTML::Parser::Simple;
6
7use Test::More tests => 1;
8
9# ------------------------
10
11my($data)   = Data -> new;
12my($html)   = $data -> read_file('t/data/02.comment.html');
13my($parser) = HTML::Parser::Simple -> new;
14
15$parser -> parse($html);
16$parser -> traverse($parser -> root);
17
18ok($parser -> result() =~ /Comment/, 'Comments are preserved');
19