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

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

use HTML::Zoom;
use HTML::Zoom::CodeStream;

use Test::More;


# turns iterator into stream
sub code_stream (&) {
  my $code = shift;
  return sub {
    HTML::Zoom::CodeStream->new({
      code => $code,
    });
  }
}

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(code_stream {
    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;
	5	use HTML::Zoom::CodeStream;
	6
	7	use Test::More;
	8
	9
	10	# turns iterator into stream
	11	sub code_stream (&) {
	12	my $code = shift;
	13	return sub {
	14	HTML::Zoom::CodeStream->new({
	15	code => $code,
	16	});
	17	}
	18	}
	19
	20	my $tmpl = <<'TMPL';
	21	<body>
	22	<div class="item">
	23	<div class="item-name"></div>
	24	</div>
	25	</body>
	26	TMPL
	27
	28	my $zoom = HTML::Zoom->from_html($tmpl);
	29	my @list = qw(foo bar baz);
	30
	31	foreach my $flush (0..1) {
	32
	33	# from HTML::Zoom manpage, slightly modified
	34	my $z2 = $zoom->select('.item')->repeat(code_stream {
	35	if (my $name = shift @list) {
	36	return sub { $_->select('.item-name')->replace_content($name) }
	37	} else {
	38	return
	39	}
	40	}, { flush_before => $flush });
	41
	42	my $fh = $z2->to_fh;
	43	my $lineno = 0;
	44	while (my $chunk = $fh->getline) {
	45	$lineno++;
	46	# debugging here
	47	}
	48
	49	cmp_ok($lineno, '==', 1+$flush, "flush_before => $flush is $lineno chunks");
	50	}
	51
	52	done_testing;