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

Make get_property_list API compatible with get_attribute_list, by returning an array.

Browse source
This commit is contained in:
Colin Kuskie 2009-12-16 13:31:48 -08:00
parent 64fc4a231d
commit 5b5d4783d0
2 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Definition/Meta/Class.pm
View file

@ -81,7 +81,7 @@ sub get_property_list {
$meta->get_attributes # All attributes
;
}
return \@properties;
return @properties;
}
#-------------------------------------------------------------------

12
t/Definition.t
View file

@ -45,7 +45,7 @@ my $called_getProperties;
::cmp_deeply(
+__PACKAGE__->getProperties,
[ +__PACKAGE__->getProperties ],
[qw/property1 property2/],
'getProperties works as a class method'
);
@ -81,13 +81,13 @@ my $called_getProperties;
::is $written, 1, 'update calls write';
::cmp_deeply(
$object->meta->get_property_list,
[ $object->meta->get_property_list ],
[qw/property2 property1/],
'->meta->get_property_list returns properties in insertion order'
'->meta->get_property_list returns properties as a list in insertion order'
);
::cmp_deeply(
$object->getProperties,
[$object->getProperties ],
[qw/property2 property1/],
'getProperties is an alias for ->meta->get_property_list'
);
@ -127,7 +127,7 @@ my $called_getProperties;
);
cmp_deeply(
WGT::Class::Asset::Snippet->getProperties,
[ WGT::Class::Asset::Snippet->getProperties ],
[qw/property1 property2 property3 property10 property11/],
'checking inheritance of properties by name, insertion order'
);
@ -147,7 +147,7 @@ my $called_getProperties;
package main;
cmp_deeply(
WGT::Class::Asset::NotherOne->getProperties,
[WGT::Class::Asset::NotherOne->getProperties],
[qw/property1 property2 property3 property10/],
'checking inheritance of properties by name, insertion order with an overridden property'
);