use strict;
use warnings;
use Test::More tests => 3;
use HTML::FormFu;
use Storable qw( dclone );
my $form = HTML::FormFu->new(
{ tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } } );
$form->default_args( {
elements => {
'+Block' => { auto_id => 'ID' },
SimpleTable => { attributes => { class => 'custom class' } },
},
} );
# take a deep copy of element_defaults, so we can check they've not been butchered, later
my $default_args = dclone( $form->default_args );
$form->populate( {
elements => [ {
type => 'SimpleTable',
name => 'foo',
},
],
} );
my $table = $form->get_all_element( { type => 'SimpleTable' } );
like( $table, qr/table [^>]*class="[^"]*custom class[^"]*"/ );
is( $table->auto_id, undef );
# original default_args hashref hasn't been butchered
is_deeply( $default_args, $form->default_args );