The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
HORNBURG / Template-Flute-0.0151 / t / lists / params.t 
#
# Basic tests for list params

use strict;
use warnings;

use Test::More tests => 6;
use Template::Flute;

my ($spec, $html, $flute, $out);

$spec = q{<specification>
<list name="list" iterator="test">
<param name="value"/>
</list>
</specification>
};

$html = q{<html><div class="list"><div class="value">TEST</div></div></html>};

for my $value (0, 1, ' ', 'test') {
    $flute = Template::Flute->new(template => $html,
                                  specification => $spec,
                                  values => {test => [{value => $value}]},
    );

    $out = $flute->process();

    ok ($out =~ m%<div class="value">$value</div>%,
        "basic list param test with: $value")
        || diag $out;
}

$spec = q{<specification>
<list name="approval" class="approval" iterator="approvals">
<param name="email" />
</list>
</specification>
};

$html = '<html><span class="approval"><span class="email">TEST</span></span></html>';

my $value = 'LIVE';

$flute = Template::Flute->new(template => $html,
                                  specification => $spec,
                                  values => {approvals => [{email => $value}]},
                             );

$out = $flute->process();

ok ($out =~ m%<span class="email">$value</span>%,
    "basic list param test with: $value")
    || diag $out;

$spec = q{<specification>
<list name="reviews" class="review-single" iterator="top_reviews">
<param name="review-rating" field="rating"/>
<param name="reviewer" field="author.name"/>
</list>
</specification>
};

$html = q{<html>
<div class="review-single">
<div class="review-rating">0/div>
<div class="reviewer">nobody</div>
</div></html>};

$flute = Template::Flute->new(template => $html,
                              specification => $spec,
                              values => {top_reviews => [{rating => '3',
                                                          author => {name => 'Foo Bar'},
                                                          }]},
                          );

$out = $flute->process;

ok ($out =~ m%div class="review-single"><div class="review-rating">3<div class="reviewer">Foo Bar</div></div></div>%,
    "basic list param test with dotted value for field")
    || diag $out;