# Test on form fields

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

use Template::Flute;

my $sort_form_spec = <<EOF;
<form name="sort" link="name">
<field name="sort"/>
</form>
EOF

my $sort_form_template = <<EOF;
<form name="sort">
    Razvrsti po:
<select name="sort" class="sort" onChange="this.form.submit()">
    <option value="priority">Priljubljenosti</option>
    <option value="price">Cena</option>
</select>
</form>
EOF

my $flute = Template::Flute->new(specification => $sort_form_spec,
                                 template => $sort_form_template,
                          );

$flute->process_template;

my $form = $flute->template->form('sort');
my $count_fields = scalar(@{$form->fields});

ok ($count_fields == 1, 'Check number of form fields')
    || diag "Number of form fields is $count_fields instead of 1.";