1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
use strict;
use warnings;
use Test::More;
{
package Test::Form;
use HTML::FormHandler::Moose;
extends 'HTML::FormHandler';
has_field 'foo';
has_field 'bar' => ( type => 'Display' );
has_field 'baz' => ( type => 'Display' );
sub html_bar {
my ( $self, $field ) = @_;
my $html = '<div><b>My Bar:&nbps;</b>' . $field->value . '</div>';
return $html;
}
sub html_baz {
my ( $self, $field ) = @_;
my $html = '<div><b>My Baz:&nbps;</b>' . $field->value . '</div>';
return $html;
}
}
my $form = Test::Form->new;
my $init_obj = {
foo => 'we have a foo',
bar => '...and a bar...',
baz => '...and a baz!!',
};
$form->process( init_object => $init_obj, params => {} );
my $rendered = $form->render;
like( $rendered, qr/and a bar/, 'value for display field renders' );
like( $rendered, qr/and a baz!!/, 'value for display field renders' );
# testing
$form->process( init_object => $init_obj, params => { foo => 'new foo' } );
$rendered = $form->render;
like( $rendered, qr/and a bar/, 'value for display field still renders' );
is_deeply( $form->value, { foo => 'new foo' }, 'value for form is correct' );
is_deeply( $form->fif, { foo => 'new foo' }, 'fif for form is correct' );
done_testing;
|
