Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- my %validation = $dumper->build_hoh;
- is_deeply({test=> {field_name =>'test_field', validators => { regex => qr/^[0-9a-z]*$/ } } }, \%validation);
- sub build_hoh {
- my $self = shift;
- my %params;
- my $form = $self->form;
- for my $fieldname ( $form->fieldnames ) {
- my $name = $form->name;
- my $field = $form->field($fieldname);
- $params{
- $name => {
- field_name => $fieldname,
- validators => { $field->validation->{$fieldname} }
- },
- }
- }
- return %params;
- }
- squishface:Form-Sensible dhoss$ prove -l t/dump_basic.t
- t/dump_basic.t .. Useless use of hash element in void context at /Users/dhoss/web-devel/Form-Sensible/lib/Form/Sensible/Renderer/TestDump.pm line 21.
- Odd number of elements in anonymous hash at /Users/dhoss/web-devel/Form-Sensible/lib/Form/Sensible/Renderer/TestDump.pm line 21.
- Use of uninitialized value in anonymous hash ({}) at /Users/dhoss/web-devel/Form-Sensible/lib/Form/Sensible/Renderer/TestDump.pm line 21.
- t/dump_basic.t .. 1/?
- # Failed test at t/dump_basic.t line 13.
- # Structures begin differing at:
- # $got->{test} = HASH(0x100b9a370)
- # $expected->{test} = Does not exist
- # Looks like you failed 1 test of 1.
- t/dump_basic.t .. Dubious, test returned 1 (wstat 256, 0x100)
- Failed 1/1 subtests
- Test Summary Report
- -------------------
- t/dump_basic.t (Wstat: 256 Tests: 1 Failed: 1)
- Failed test: 1
- Non-zero exit status: 1
- Files=1, Tests=1, 0 wallclock secs ( 0.02 usr 0.01 sys + 0.27 cusr 0.02 csys = 0.32 CPU)
- Result: FAIL
Add Comment
Please, Sign In to add comment