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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
use strict;
use warnings;
use Test::More;
use File::ShareDir;
BEGIN {
plan skip_all => 'Install Template Toolkit to test Render::WithTT'
unless eval { require Template };
}
use_ok('HTML::FormHandler::Render::WithTT');
use_ok('HTML::FormHandler::Render::Simple');
use_ok('HTML::FormHandler::Render::Table');
my $dir = File::ShareDir::dist_dir('HTML-FormHandler') . '/templates/';
ok( $dir, 'found template dir' );
{
package Test::Form;
use HTML::FormHandler::Moose;
extends 'HTML::FormHandler';
has_field 'foo' => ( element_class => 'schoen', style => 'bunt', title => 'MyTitle' );
has_field 'bar' => ( element_attr => { arbitrary => 'something', title => 'AltTitle' } );
}
{
package Test::Form::WithTT::Role;
use Moose::Role;
with 'HTML::FormHandler::Render::WithTT' =>
{ -excludes => [ 'build_tt_template', 'build_tt_include_path' ] };
sub build_tt_template {'form/form.tt'}
sub build_tt_include_path { ['share/templates'] }
}
my %results;
{
my $form
= Test::Form->new( form_element_class => 'beautifully', style => 'colorful' );
$results{Widgets} = $form->render;
}
{
my $form
= Test::Form->new_with_traits( traits => ['Test::Form::WithTT::Role'],
form_element_class => 'beautifully', style => 'colorful' );
$results{TT} = $form->tt_render;
}
{
my $form
= Test::Form->new_with_traits( traits => ['HTML::FormHandler::Render::Simple'],
form_element_class => 'beautifully', style => 'colorful' );
$results{Simple} = $form->render;
}
{
my $form
= Test::Form->new_with_traits( traits => ['HTML::FormHandler::Render::Table'],
form_element_class => 'beautifully', style => 'colorful' );
$results{Table} = $form->render;
}
is( scalar( grep {$_} values %results ),
scalar keys %results,
'Both methods rendered'
);
while ( my ( $key, $res ) = each %results ) {
like( $res, qr/class="schoen"/, "$key Field got the class (schoen)" );
like( $res, qr/style="bunt"/, "$key Field got the style (bunt)" );
like( $res, qr/class="beautifully"/, "$key Form got the class (beautifully)" );
like( $res, qr/style="colorful"/, "$key Form got the style (colorful)" );
like( $res, qr/arbitrary="something"/, "$key Field got the arbitrary attribute" );
like( $res, qr/title="MyTitle"/, "$key Field got the title" );
like( $res, qr/title="AltTitle"/, "$key Field got the title from element_attr" );
}
done_testing();
|
