use strict;
use warnings;
use Test::More tests => 1;
use Template::Flute;
use utf8;
binmode STDOUT, ":encoding(utf-8)";

my $spec =<<'EOF';
<specification>
<value name="select-wishlist" iterator="my_wishlists_dropdown"/>
</specification>
EOF

my $template =<<'EOF';
<select name="select-wishlist" class="select-wishlist btn-large" onchange='this.form.submit()'>
	<option></option>
</select>
EOF

sub iterator {
    return [{ label => "a",
              value => "b" },
            { label => "c",
              value => "d" }]
}


my $flute = Template::Flute->new(specification => $spec,
                                 template => $template,
                                 iterators => {
                                               my_wishlists_dropdown => iterator(),
                                              }
                                 );

eval {
     $flute->process;
};
ok(!$@, "No error with class and name with the same string") || diag $@;