[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 = $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'
);

my @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'
);

($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'
);

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
	49	(my $expect = $tmpl) =~ s/(?=<div)/O HAI/;
	50
	51	my $ohai = [ { type => 'TEXT', raw => 'O HAI' } ];
	52
	53	is(
	54	run_for { $_->add_before($ohai) },
	55	$expect,
	56	'add_before ok'
	57	);
	58
	59	($expect = $tmpl) =~ s/(?<=<\/div>)/O HAI/;
	60
	61	is(
	62	run_for { $_->add_after($ohai) },
	63	$expect,
	64	'add_after ok'
65	);
66
67	($expect = $tmpl) =~ s/(?<=class="main">)/O HAI/;
68
69	is(
70	run_for { $_->prepend_inside($ohai) },
71	$expect,
72	'prepend_inside ok'
73	);
74
75	($expect = $tmpl) =~ s/<hr \/>/<hr>O HAI<\/hr>/;
76
77	is(
78	(run_for { $_->prepend_inside($ohai) } 'hr'),
79	$expect,
80	'prepend_inside ok with in place close'
81	);
82
83	is(
84	run_for { $_->replace($ohai) },
85	'<body>
86	O HAI
87	</body>
88	',
89	'replace ok'
90	);
91
c86c0ce2	92	my @ev;
	93
	94	is(
	95	run_for { $_->collect({ into => \@ev }) },
	96	'<body>
	97
	98	</body>
	99	',
	100	'collect removes without passthrough'
	101	);
	102
	103	is(
	104	HTML::Zoom::Producer::BuiltIn->html_from_events(\@ev),
	105	'<div class="main">
	106	<span class="hilight name">Bob</span>
	107	<span class="career">Builder</span>
	108	<hr />
	109	</div>',
	110	'collect collected right events'
	111	);
41153e87	112
	113	($expect = $tmpl) =~ s/class="main"/class="foo"/;
	114
	115	is(
	116	run_for { $_->set_attribute({ name => 'class', value => 'foo' }) },
	117	$expect,
	118	'set attribute on existing attribute'
	119	);
	120
	121	($expect = $tmpl) =~ s/class="main"/class="main" foo="bar"/;
	122
	123	is(
	124	run_for { $_->set_attribute({ name => 'foo', value => 'bar' }) },
	125	$expect,
	126	'set attribute on non existing attribute'
	127	);
	128
	129	($expect = $tmpl) =~ s/class="main"/class="main foo"/;
	130
	131	is(
	132	run_for { $_->add_attribute({ name => 'class', value => 'foo' }) },
	133	$expect,
	134	'add attribute on existing attribute'
	135	);
	136
	137	($expect = $tmpl) =~ s/class="main"/class="main" foo="bar"/;
	138
	139	is(
	140	run_for { $_->add_attribute({ name => 'foo', value => 'bar' }) },
	141	$expect,
	142	'add attribute on non existing attribute'
	143	);
	144
	145	($expect = $tmpl) =~ s/ class="main"//;
	146
	147	is(
	148	run_for { $_->remove_attribute({ name => 'class' }) },
	149	$expect,
	150	'remove attribute on existing attribute'
	151	);
	152
	153	is(
	154	run_for { $_->remove_attribute({ name => 'foo' }) },
	155	$tmpl,
	156	'remove attribute on non existing attribute'
	157	);
	158
456a815d	159	done_testing;