1use strict; 2use warnings; 3 4use File::Spec (); 5use HTML::Parser (); 6use Test::More tests => 6; 7 8my $events; 9my $p 10 = HTML::Parser->new(default_h => [sub { $events .= "$_[0]\n"; }, "event"]); 11 12$events = ""; 13$p->eof; 14ok($events, "start_document\nend_document\n"); 15 16$events = ""; 17$p->parse_file(File::Spec->devnull); 18ok($events, "start_document\nend_document\n"); 19 20$events = ""; 21$p->parse(""); 22$p->eof; 23ok($events, "start_document\nend_document\n"); 24 25$events = ""; 26$p->parse(""); 27$p->parse(""); 28$p->eof; 29ok($events, "start_document\nend_document\n"); 30 31$events = ""; 32$p->parse(""); 33$p->parse("<a>"); 34$p->eof; 35ok($events, "start_document\nstart\nend_document\n"); 36 37$events = ""; 38$p->parse("<a> "); 39$p->eof; 40ok($events, "start_document\nstart\ntext\nend_document\n"); 41