[catagits/HTML-Zoom.git] / t / synopsis / filterbuilder.t

use strict;
use warnings FATAL => 'all';
use Test::More qw(no_plan);

use HTML::Zoom;
my $root = HTML::Zoom
    ->from_html(<<MAIN);
<html>
  <head>
    <title>Default Title</title>
  </head>
  <body>
    Default Content
  </body>
</html>
MAIN

my $body = HTML::Zoom
    ->from_html(<<BODY);
<div id="stuff">
    <p>Well Now</p>
    <p id="p2">Is the Time</p>
</div>
BODY

my $output =  $root
  ->select('title')
  ->replace_content('Hello World')
  ->select('body')
  ->replace_content($body)
  ->then
  ->set_attribute(class=>'main')
  ->then
  ->add_to_attribute(class=>'one-column')
  ->then
  ->set_attribute(id=>'top')
  ->then
  ->add_to_attribute(id=>'deleteme')
  ->then
  ->remove_attribute({name=>'id', value=>'deleteme'})
  ->select('p')
  ->set_attribute(class=>'para')
  ->select('#p2')
  ->set_attribute(class=>'para2')
  ->to_html;


my $expect = <<HTML;
<html>
  <head>
    <title>Hello World</title>
  </head>
  <body class="main one-column" id="top"><div id="stuff">
    <p class="para">Well Now</p>
    <p id="p2" class="para2">Is the Time</p>
</div>
</body>
</html>
HTML
is($output, $expect, 'Synopsis code works ok');
Commit	Line	Data
0d8f057e	1	use strict;
	2	use warnings FATAL => 'all';
	3	use Test::More qw(no_plan);
	4
	5	use HTML::Zoom;
	6	my $root = HTML::Zoom
	7	->from_html(<<MAIN);
	8	<html>
	9	<head>
	10	<title>Default Title</title>
	11	</head>
	12	<body>
	13	Default Content
	14	</body>
	15	</html>
	16	MAIN
	17
	18	my $body = HTML::Zoom
	19	->from_html(<<BODY);
	20	<div id="stuff">
adb30a8a	21	<p>Well Now</p>
f8ad684d	22	<p id="p2">Is the Time</p>
0d8f057e	23	</div>
	24	BODY
	25
	26	my $output = $root
f8ad684d	27	->select('title')
	28	->replace_content('Hello World')
	29	->select('body')
	30	->replace_content($body)
	31	->then
	32	->set_attribute(class=>'main')
434a11c8	33	->then
	34	->add_to_attribute(class=>'one-column')
	35	->then
	36	->set_attribute(id=>'top')
	37	->then
	38	->add_to_attribute(id=>'deleteme')
	39	->then
	40	->remove_attribute({name=>'id', value=>'deleteme'})
f8ad684d	41	->select('p')
	42	->set_attribute(class=>'para')
	43	->select('#p2')
	44	->set_attribute(class=>'para2')
	45	->to_html;
0d8f057e	46
	47
	48	my $expect = <<HTML;
	49	<html>
	50	<head>
	51	<title>Hello World</title>
	52	</head>
434a11c8	53	<body class="main one-column" id="top"><div id="stuff">
adb30a8a	54	<p class="para">Well Now</p>
f8ad684d	55	<p id="p2" class="para2">Is the Time</p>
0d8f057e	56	</div>
	57	</body>
	58	</html>
	59	HTML
	60	is($output, $expect, 'Synopsis code works ok');
	61