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

More tests.

Browse source
This commit is contained in:
Colin Kuskie 2009-12-10 19:49:28 -08:00
parent 812c2e4c37
commit 83e8d7ca12
1 changed files with 16 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

17
t/Definition.t
View file

@ -26,6 +26,9 @@ my $called_getProperties;
property 'property1' => ( property 'property1' => (
arbitrary_key => 'arbitrary_value', arbitrary_key => 'arbitrary_value',
); );
property 'property2' => (
nother_key => 'nother_value',
);
# attributes create methods # attributes create methods
::can_ok +__PACKAGE__, 'attribute1'; ::can_ok +__PACKAGE__, 'attribute1';
@ -41,6 +44,12 @@ my $called_getProperties;
# can retreive property metadata # can retreive property metadata
::is +__PACKAGE__->getProperty('property1')->form->{'arbitrary_key'}, 'arbitrary_value', 'arbitrary keys mapped into the form attribute'; ::is +__PACKAGE__->getProperty('property1')->form->{'arbitrary_key'}, 'arbitrary_value', 'arbitrary keys mapped into the form attribute';
::cmp_deeply(
+__PACKAGE__->getProperties,
[qw/property1 property2/],
'getProperties works as a class method'
);
} }
{ {
@ -74,7 +83,13 @@ my $called_getProperties;
::cmp_deeply( ::cmp_deeply(
$object->meta->get_property_list, $object->meta->get_property_list,
[qw/property2 property1/], [qw/property2 property1/],
'get_property_list returns properties in insertion order' '->meta->get_property_list returns properties in insertion order'
);
::cmp_deeply(
$object->getProperties,
[qw/property2 property1/],
'getProperties is an alias for ->meta->get_property_list'
); );
} }