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

add get_tables, and refactor out get_all_properties from get_property_list

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

24
t/Definition.t
View file

@ -43,6 +43,11 @@ my $called_getProperties;
# can retreive property metadata
::is +__PACKAGE__->getProperty('property1')->form->{'arbitrary_key'}, 'arbitrary_value', 'arbitrary keys mapped into the form attribute';
# can retreive property metadata
::is +__PACKAGE__->getProperty('property1')->form->{'arbitrary_key'}, 'arbitrary_value', 'arbitrary keys mapped into the form attribute';
# can retreive property metadata
::isa_ok +__PACKAGE__->getProperty('property1'), 'WebGUI::Definition::Meta::Property';
::cmp_deeply(
[ +__PACKAGE__->getProperties ],
@ -66,6 +71,7 @@ my $called_getProperties;
}
::is +__PACKAGE__->meta->get_attribute('property1')->tableName, 'asset', 'tableName copied from attribute into property';
::isa_ok +__PACKAGE__->getProperty('property1'), 'WebGUI::Definition::Meta::Property::Asset';
::can_ok +__PACKAGE__, 'update';
@ -86,12 +92,24 @@ my $called_getProperties;
'->meta->get_property_list returns properties as a list in insertion order'
);
::cmp_deeply(
[ $object->meta->get_all_properties ],
::array_each(::isa('WebGUI::Definition::Meta::Property::Asset')),
'->meta->get_all_properties returns a list of Properties'
);
::cmp_deeply(
[$object->getProperties ],
[qw/property2 property1/],
'getProperties is an alias for ->meta->get_property_list'
);
::cmp_deeply(
[$object->meta->get_tables ],
[qw/asset/],
'get_tables returns a list of all tables used by this class'
);
}
{
@ -152,4 +170,10 @@ my $called_getProperties;
'checking inheritance of properties by name, insertion order with an overridden property'
);
cmp_deeply(
[WGT::Class::Asset::NotherOne->meta->get_tables],
[qw/asset snippet/],
'get_tables returns both tables'
);
}