[catagits/HTML-Zoom.git] / t / flush.t

use strict;
use warnings FATAL => 'all';

use HTML::Zoom;
use Test::More;

my $tmpl = <<'TMPL';
<body>
  <div class="item">
    <div class="item-name"></div>
  </div>
</body>
TMPL

my $zoom = HTML::Zoom->from_html($tmpl);
my @list = qw(foo bar baz);

foreach my $flush (0..1) {

  # from HTML::Zoom manpage, slightly modified
  my $z2 = $zoom->select('.item')->repeat(sub {
    if (my $name = shift @list) {
      return sub { $_->select('.item-name')->replace_content($name) }
    } else {
      return
    }
  }, { flush_before => $flush });

  my $fh = $z2->to_fh;
  my $lineno = 0;
  while (my $chunk = $fh->getline) {
    $lineno++;
    # debugging here
  }

  cmp_ok($lineno, '==', 1+$flush, "flush_before => $flush is $lineno chunks");
}

done_testing;
Commit	Line	Data
8af6dead	1	use strict;
	2	use warnings FATAL => 'all';
	3
	4	use HTML::Zoom;
8af6dead	5	use Test::More;
8af6dead	6
8af6dead	7	my $tmpl = <<'TMPL';
	8	<body>
	9	<div class="item">
	10	<div class="item-name"></div>
	11	</div>
	12	</body>
	13	TMPL
	14
	15	my $zoom = HTML::Zoom->from_html($tmpl);
	16	my @list = qw(foo bar baz);
	17
	18	foreach my $flush (0..1) {
	19
	20	# from HTML::Zoom manpage, slightly modified
15059df5	21	my $z2 = $zoom->select('.item')->repeat(sub {
8af6dead	22	if (my $name = shift @list) {
	23	return sub { $_->select('.item-name')->replace_content($name) }
	24	} else {
	25	return
	26	}
	27	}, { flush_before => $flush });
	28
	29	my $fh = $z2->to_fh;
	30	my $lineno = 0;
	31	while (my $chunk = $fh->getline) {
	32	$lineno++;
	33	# debugging here
	34	}
	35
	36	cmp_ok($lineno, '==', 1+$flush, "flush_before => $flush is $lineno chunks");
	37	}
	38
	39	done_testing;