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