Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use Test::More;
- use FindBin;
- use lib "$FindBin::bin/../lib";
- use Form::Sensible::Form;
- use Form::Sensible::Field::Text;
- use Form::Sensible::Renderer::TestDump;
- my $form = Form::Sensible::Form->new(name=>'test');
- my $textarea = Form::Sensible::Field::Text->new(name=>'test_field', validation => { regex => qr/^[0-9a-z]*$/ });
- $form->add_field($textarea);
- my $dumper = Form::Sensible::Renderer::TestDump->new(form=>$form);
- my %validation = $dumper->build_hoh;
- is_deeply({}, %validation);
- done_testing();
- ## error:
- Can't call method "field_validators" on an undefined value at /Users/dhoss/web-devel/Form-Sensible/lib/Form/Sensible/Renderer/TestDump.pm line 22.
Add Comment
Please, Sign In to add comment