2 use warnings FATAL => 'all';
5 use Test::More tests => 12;
7 ok my $zoom = HTML::Zoom->from_html(<<HTML);
12 <body id="content-area">
15 <p class="first-para">Some stuff</p>
16 <p class="boday-para">More stuff</p>
18 <p id="footer">Copryright 2222</p>
23 ok my $fh = $zoom->to_fh,
26 ok my $html = $zoom->to_html,
29 ok my $lines = join('', $zoom->to_fh->getlines),
33 'straight html is same as lines';
36 $fh->read(my $buff, 2);
39 'got a populated buffer';
42 'got expected info in buffer';
46 $fh->read(my $buff, 4);
49 'got a populated buffer';
52 'got expected info in buffer';
56 ##$fh->read(my $buff, 6, 20);
57 $fh->read(my $buff, 6, 14);
60 'got a populated buffer';
63 'got expected info in buffer';
68 while($fh->read(my $buff, 15)) {
73 'correct number of lines';
76 use Data::Dump 'dump';