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

Add tests for getFormProperties

Browse source
This commit is contained in:
Colin Kuskie 2010-01-21 18:08:41 -08:00
parent b2db9d491b
commit be8f582ac7
1 changed files with 39 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

47
t/Definition.t
View file

@ -16,10 +16,12 @@ use lib "$FindBin::Bin/lib";
use WebGUI::Test;
use Test::More 'no_plan'; #tests => 1;
use Test::More tests => 10;
use Test::Deep;
use Test::Exception;
my $session = WebGUI::Test->session;
my $called_getProperties;
{
package WGT::Class;
@ -46,13 +48,6 @@ my $called_getProperties;
::can_ok +__PACKAGE__, 'get';
::can_ok +__PACKAGE__, 'set';
# can retreive property metadata
::isa_ok +__PACKAGE__->getProperty('property1'), 'WebGUI::Definition::Meta::Property';
::is +__PACKAGE__->getProperty('property1')->form->{'arbitrary_key'}, 'arbitrary_value', 'arbitrary keys mapped into the form attribute';
::is +__PACKAGE__->getProperty('property2')->form->{'nother_key'}, 'nother_value', '... and again';
::cmp_deeply(
[ +__PACKAGE__->getProperties ],
[qw/property1 property2/],
@ -94,5 +89,41 @@ my $called_getProperties;
@set_order = ();
$object->set(property2 => 1, property3 => 0, property1 => 1);
::cmp_deeply( [ @set_order ], [3,1,2], '... and again');
::cmp_deeply(
$object->getFormProperties('property1'),
{ label => 'label' },
'getFormProperties works for a simple set of properties'
);
}
{
package WGT::Class3;
use WebGUI::Definition;
attribute 'attribute1' => 'attribute1 value';
property 'property1' => (
label => ['webgui', 'WebGUI'],
options => \&property1_options,
);
has session => (
is => 'ro',
required => 1,
);
sub property1_options {
return { one => 1, two => 2, three => 3 };
}
my $object = WGT::Class3->new({session => $session});
::cmp_deeply(
$object->getFormProperties('property1'),
{
label => 'WebGUI',
options => { one => 1, two => 2, three => 3 },
},
'getFormProperties handles i18n and subroutines'
);
}