The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
HORNBURG / Template-Flute-0.025 / t / 05-intro.t 
#
# Test for the code added to the POD introduction

use strict;
use warnings;
use Test::More tests => 2;

use Template::Flute;

my ($html, $xml, $html_object, $spec_object, $spec, $flute);
	
$html = <<'EOF';
<html>
    <div class="customer_name">Mr A Test</div>
    <div class="customer_email">someone@example.com</div>
</html>
EOF

$xml = <<'EOF';
   <specification name="example" description="Example">
        <value name="customer_name" />
        <value name="customer_email" field="email" />
    </specification>
EOF

$spec_object = new Template::Flute::Specification::XML;

$spec = $spec_object->parse($xml);

$html_object = new Template::Flute::HTML;

$html_object->parse($html, $spec);

$flute = Template::Flute->new(template => $html_object,
							  specification => $spec,
							 );

$flute->set_values({ customer_name => 'Bob McTest',
					 email => 'bob@example.com',
				   });;

my $ret = $flute->process;

ok($ret =~ m%<div class="customer_name">Bob McTest</div>%, $ret);
ok($ret =~ m%<div class="customer_email">bob\@example.com</div>%, $ret);