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 / apply.t 
use strict;
use warnings FATAL => 'all';
use Test::More 'no_plan';

use HTML::Zoom;

my $template = <<HTML;
<html>
  <body></body>
</html>
HTML

my $expect = <<HTML;
<html>
  <body>Hello</body>
</html>
HTML

my $output = HTML::Zoom
  ->from_html($template)
  ->apply_if(1, sub { $_->select('body')->replace_content('Hello') })
  ->to_html;

is( $output => $expect, 'apply_if with a true predicate' );

$output = HTML::Zoom
  ->from_html($template)
  ->apply_if(0, sub { $_->select('body')->replace_content('Hello') })
  ->to_html;

is( $output => $template, 'apply_if with a false predicate' );