The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
ELLIOTT / HTML-Zoom-0.009008_01 / t / synopsis / filterbuilder.t 
use strictures 1;
use Test::More qw(no_plan);



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



$root = $root
  ->select('body')
  ->set_attribute(class=>'main');



$root = $root
  ->select('body')
  ->add_to_attribute(class=>'one-column');



$root = $root
  ->select('title')
  ->replace_content('Hello World');



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

$root = $root
  ->select('body')
  ->replace_content($body);



$root = $root
  ->select('p')
  ->set_attribute(class=>'para');



$root = $root
  ->select('body')
  ->remove_attribute('bad_attr');


my $output = $root->to_html;
my $expect = <<HTML;
<html>
  <head>
    <title>Hello World</title>
  </head>
  <body class="main one-column"><div id="stuff">
    <p class="para">Well Now</p>
    <p id="p2" class="para">Is the Time</p>
</div>
</body>
</html>
HTML
is($output, $expect, 'Synopsis code works ok');