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