started to fill out the set_attribute stub

[catagits/HTML-Zoom.git] / t / todo-forms.t

use HTML::Zoom;
use Test::More;

my $zoom = HTML::Zoom->from_html(<<HTML);
<form class="myform" action="/somewhere">
<label />
<input />
</form>
HTML

my @fields = (
    { id => "foo", label => "foo", name => "foo", type => "text", value => 0 },
    { id => "bar", label => "bar", name => "bar", type => "radio", value => 1 },
);

my $h = $zoom->select('.myform')->repeat_content([
    map { my $field = $_; sub {
              $_->select('label')
               ->add_to_attribute( for => $field->{id} )
               ->then
               ->replace_content( $field->{label} )
               ->select('input')
               ->add_to_attribute( name => $field->{name} )
               ->then
               ->add_to_attribute( type => $field->{type} )
               ->then
               ->add_to_attribute( value => $field->{value} )
           } } @fields
       ])->to_html;

warn $h;

ok 1;
done_testing;