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

use strict;
use warnings FATAL => 'all';
use Test::More;

use HTML::Zoom::Parser::BuiltIn;
use HTML::Zoom::Producer::BuiltIn;
use HTML::Zoom::SelectorParser;
use HTML::Zoom::FilterBuilder;
use HTML::Zoom::FilterStream;

my $tmpl = <<END;
<body>
  <div class="main">
    <span class="hilight name">Bob</span>
    <span class="career">Builder</span>
    <hr />
  </div>
</body>
END

sub src_stream { HTML::Zoom::Parser::BuiltIn->html_to_stream($tmpl); }

sub html_sink { HTML::Zoom::Producer::BuiltIn->html_from_stream($_[0]) }

my $fb = HTML::Zoom::FilterBuilder->new;

my $sp = HTML::Zoom::SelectorParser->new;

sub filter {
  my ($stream, $sel, $cb) = @_;
  return HTML::Zoom::FilterStream->new({
    stream => $stream,
    match => $sp->parse_selector($sel),
    filter => do { local $_ = $fb; $cb->($fb) }
  });
}

sub run_for (&;$) {
  my $cb = shift;
  (html_sink
    (filter
      src_stream,
      (shift or '.main'),
      $cb
    )
  )
}

my ($expect, @ev);

($expect = $tmpl) =~ s/class="main"/class="foo"/;

is(
  run_for { $_->set_attribute({ name => 'class', value => 'foo' }) },
  $expect,
  'set attribute on existing attribute'
);

($expect = $tmpl) =~ s/class="main"/class="main" foo="bar"/;

is(
  run_for { $_->set_attribute({ name => 'foo', value => 'bar' }) },
  $expect,
  'set attribute on non existing attribute'
);

($expect = $tmpl) =~ s/class="main"/class="main foo"/;

is(
  run_for { $_->add_attribute({ name => 'class', value => 'foo' }) },
  $expect,
  'add attribute on existing attribute'
);

($expect = $tmpl) =~ s/class="main"/class="main" foo="bar"/;

is(
  run_for { $_->add_attribute({ name => 'foo', value => 'bar' }) },
  $expect,
  'add attribute on non existing attribute'
);

($expect = $tmpl) =~ s/ class="main"//;

is(
  run_for { $_->remove_attribute({ name => 'class' }) },
  $expect,
  'remove attribute on existing attribute'
);

is(
  run_for { $_->remove_attribute({ name => 'foo' }) },
  $tmpl,
  'remove attribute on non existing attribute'
);

($expect = $tmpl) =~ s/(?=<div)/O HAI/;

my $ohai = [ { type => 'TEXT', raw => 'O HAI' } ];

is(
  run_for { $_->add_before($ohai) },
  $expect,
  'add_before ok'
);

($expect = $tmpl) =~ s/(?<=<\/div>)/O HAI/;

is(
  run_for { $_->add_after($ohai) },
  $expect,
  'add_after ok'
);

($expect = $tmpl) =~ s/(?<=class="main">)/O HAI/;

is(
  run_for { $_->prepend_inside($ohai) },
  $expect,
  'prepend_inside ok'
);

($expect = $tmpl) =~ s/<hr \/>/<hr>O HAI<\/hr>/;

is(
  (run_for { $_->prepend_inside($ohai) } 'hr'),
  $expect,
  'prepend_inside ok with in place close'
);

is(
  run_for { $_->replace($ohai) },
'<body>
  O HAI
</body>
',
  'replace ok'
);

@ev = ();

is(
  run_for { $_->collect({ into => \@ev }) },
  '<body>
  
</body>
',
  'collect removes without passthrough'
);

is(
  HTML::Zoom::Producer::BuiltIn->html_from_events(\@ev),
  '<div class="main">
    <span class="hilight name">Bob</span>
    <span class="career">Builder</span>
    <hr />
  </div>',
  'collect collected right events'
);

@ev = ();

is(
  run_for { $_->collect({ into => \@ev, inside => 1 }) },
  '<body>
  <div class="main"></div>
</body>
',
  'collect w/inside removes correctly'
);

is(
  HTML::Zoom::Producer::BuiltIn->html_from_events(\@ev),
  '
    <span class="hilight name">Bob</span>
    <span class="career">Builder</span>
    <hr />
  ',
  'collect w/inside collects correctly'
);

is(
  run_for { $_->replace($ohai, { inside => 1 }) },
  '<body>
  <div class="main">O HAI</div>
</body>
',
  'replace w/inside'
);

($expect = $tmpl) =~ s/(?=<\/div>)/O HAI/;

is(
  run_for { $_->append_inside($ohai) },
  $expect,
  'append inside ok'
);

done_testing;
Commit	Line	Data
456a815d	1	use strict;
	2	use warnings FATAL => 'all';
	3	use Test::More;
	4
	5	use HTML::Zoom::Parser::BuiltIn;
	6	use HTML::Zoom::Producer::BuiltIn;
	7	use HTML::Zoom::SelectorParser;
	8	use HTML::Zoom::FilterBuilder;
	9	use HTML::Zoom::FilterStream;
	10
	11	my $tmpl = <<END;
	12	<body>
	13	<div class="main">
	14	<span class="hilight name">Bob</span>
	15	<span class="career">Builder</span>
	16	<hr />
	17	</div>
	18	</body>
	19	END
	20
	21	sub src_stream { HTML::Zoom::Parser::BuiltIn->html_to_stream($tmpl); }
	22
	23	sub html_sink { HTML::Zoom::Producer::BuiltIn->html_from_stream($_[0]) }
	24
	25	my $fb = HTML::Zoom::FilterBuilder->new;
	26
	27	my $sp = HTML::Zoom::SelectorParser->new;
	28
	29	sub filter {
	30	my ($stream, $sel, $cb) = @_;
	31	return HTML::Zoom::FilterStream->new({
	32	stream => $stream,
	33	match => $sp->parse_selector($sel),
	34	filter => do { local $_ = $fb; $cb->($fb) }
	35	});
	36	}
	37
	38	sub run_for (&;$) {
	39	my $cb = shift;
	40	(html_sink
	41	(filter
	42	src_stream,
	43	(shift or '.main'),
	44	$cb
	45	)
	46	)
	47	}
	48
8f962884	49	my ($expect, @ev);
	50
	51	($expect = $tmpl) =~ s/class="main"/class="foo"/;
	52
	53	is(
	54	run_for { $_->set_attribute({ name => 'class', value => 'foo' }) },
	55	$expect,
	56	'set attribute on existing attribute'
	57	);
	58
	59	($expect = $tmpl) =~ s/class="main"/class="main" foo="bar"/;
	60
	61	is(
	62	run_for { $_->set_attribute({ name => 'foo', value => 'bar' }) },
	63	$expect,
	64	'set attribute on non existing attribute'
	65	);
	66
	67	($expect = $tmpl) =~ s/class="main"/class="main foo"/;
	68
	69	is(
	70	run_for { $_->add_attribute({ name => 'class', value => 'foo' }) },
	71	$expect,
	72	'add attribute on existing attribute'
	73	);
	74
	75	($expect = $tmpl) =~ s/class="main"/class="main" foo="bar"/;
	76
	77	is(
	78	run_for { $_->add_attribute({ name => 'foo', value => 'bar' }) },
	79	$expect,
	80	'add attribute on non existing attribute'
	81	);
	82
	83	($expect = $tmpl) =~ s/ class="main"//;
	84
	85	is(
	86	run_for { $_->remove_attribute({ name => 'class' }) },
	87	$expect,
	88	'remove attribute on existing attribute'
	89	);
	90
	91	is(
	92	run_for { $_->remove_attribute({ name => 'foo' }) },
	93	$tmpl,
	94	'remove attribute on non existing attribute'
	95	);
	96
	97	($expect = $tmpl) =~ s/(?=<div)/O HAI/;
456a815d	98
	99	my $ohai = [ { type => 'TEXT', raw => 'O HAI' } ];
	100
	101	is(
	102	run_for { $_->add_before($ohai) },
	103	$expect,
	104	'add_before ok'
	105	);
	106
	107	($expect = $tmpl) =~ s/(?<=<\/div>)/O HAI/;
	108
	109	is(
	110	run_for { $_->add_after($ohai) },
	111	$expect,
	112	'add_after ok'
	113	);
	114
	115	($expect = $tmpl) =~ s/(?<=class="main">)/O HAI/;
	116
	117	is(
	118	run_for { $_->prepend_inside($ohai) },
	119	$expect,
	120	'prepend_inside ok'
	121	);
	122
	123	($expect = $tmpl) =~ s/<hr \/>/<hr>O HAI<\/hr>/;
	124
	125	is(
	126	(run_for { $_->prepend_inside($ohai) } 'hr'),
	127	$expect,
	128	'prepend_inside ok with in place close'
	129	);
	130
	131	is(
	132	run_for { $_->replace($ohai) },
	133	'<body>
	134	O HAI
	135	</body>
	136	',
	137	'replace ok'
	138	);
	139
8f962884	140	@ev = ();
c86c0ce2	141
	142	is(
	143	run_for { $_->collect({ into => \@ev }) },
	144	'<body>
	145
	146	</body>
	147	',
	148	'collect removes without passthrough'
	149	);
	150
	151	is(
	152	HTML::Zoom::Producer::BuiltIn->html_from_events(\@ev),
	153	'<div class="main">
	154	<span class="hilight name">Bob</span>
	155	<span class="career">Builder</span>
	156	<hr />
	157	</div>',
	158	'collect collected right events'
	159	);
41153e87	160
8f962884	161	@ev = ();
41153e87	162
41153e87	163	is(
8f962884	164	run_for { $_->collect({ into => \@ev, inside => 1 }) },
	165	'<body>
	166	<div class="main"></div>
	167	</body>
	168	',
	169	'collect w/inside removes correctly'
41153e87	170	);
	171
	172	is(
8f962884	173	HTML::Zoom::Producer::BuiltIn->html_from_events(\@ev),
	174	'
	175	<span class="hilight name">Bob</span>
	176	<span class="career">Builder</span>
	177	<hr />
	178	',
	179	'collect w/inside collects correctly'
41153e87	180	);
41153e87	181
11cc25dd	182	is(
	183	run_for { $_->replace($ohai, { inside => 1 }) },
	184	'<body>
	185	<div class="main">O HAI</div>
	186	</body>
	187	',
	188	'replace w/inside'
	189	);
	190
a25b8d4d	191	($expect = $tmpl) =~ s/(?=<\/div>)/O HAI/;
	192
	193	is(
	194	run_for { $_->append_inside($ohai) },
	195	$expect,
	196	'append inside ok'
	197	);
	198
456a815d	199	done_testing;