#! perl
#
# Test for lowerdash filter
use strict;
use warnings;
use Test::More tests => 3;
use Template::Flute;
# lowerdash filter
my $xml = <<EOF;
<specification name="filters">
<value name="text" filter="lower_dash" />
</specification>
EOF
my $html = <<EOF;
<div class="text">foo</div>
EOF
my $tests = {
'Red Wine' => 'red-wine',
'Red Wine is Delicious' => 'red-wine-is-delicious',
'Red Wine is Delicious' => 'red-wine-is-delicious',
};
for my $key ( keys %$tests ) {
my $flute = Template::Flute->new(
specification => $xml,
template => $html,
values => { text => $key }
);
my $ret = $flute->process();
ok( $ret =~ m{<div class="text">$tests->{$key}</div>},
qq{lower_dash filter: $ret} );
}