oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add toTemplateVars method to form controls

Browse source
This commit is contained in:
Doug Bell 2010-12-09 18:22:07 -06:00
parent 2c51e6d4fd
commit ca42a0544d
2 changed files with 35 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

16
t/tests/Test/WebGUI/Form/Control.pm
View file

@ -41,7 +41,7 @@ sub t_00_method_check : Test(1) {
}
sub t_01_get_set : Test(2) {
sub t_01_get_set : Test(3) {
my $test = shift;
my $session = $test->session;
@ -49,7 +49,7 @@ sub t_01_get_set : Test(2) {
lives_ok { $form->set('name', 'form1'); } 'set name';
is $form->get('name'), 'form1', 'get name';
cmp_deeply $form->get, superhashof({ name => 'form1' }), 'get hashref';
}
sub t_02_instanced : Test(1) {
@ -63,4 +63,16 @@ sub t_02_instanced : Test(1) {
is $form->get('name'), 'form1', 'name set on instanciation';
}
sub t_03_toTemplateVars : Test(2) {
my $test = shift;
my $session = $test->session;
my $form = $test->class->new($session, {
name => 'form1',
});
cmp_deeply $form->get, superhashof({ name => 'form1' }), 'toTemplateVars hashref';
isnt $form->toTemplateVars, $form->get, 'toTemplateVars creates safe hashref';
}
1;