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

rework test to handle loss of getProperty. use find_attribute_by_name instead.

Browse source
This commit is contained in:
Colin Kuskie 2010-01-25 19:30:58 -08:00
parent 42b8237f1f
commit 9155f70555
1 changed files with 3 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
t/Definition/Asset.t
View file

@ -68,14 +68,10 @@ use WebGUI::Test;
}
::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';
::can_ok +__PACKAGE__, 'tableName';
::can_ok +__PACKAGE__->getProperty('property1'), 'tableName';
::is +__PACKAGE__->getProperty('property1')->tableName, 'asset', 'tableName set on property to asset';
my $object = __PACKAGE__->new;
$object->set({property1 => 'property value'});
::is $object->property1, 'property value', 'checking set, hashref form';
@ -172,10 +168,10 @@ use WebGUI::Test;
package main;
is +WGT::Class::AlsoAsset->getProperty('property1')->tableName, 'asset', 'tableName set in base class';
is +WGT::Class::AlsoAsset->tableName, 'asset', 'tableName set in base class';
is +WGT::Class::Asset::Snippet->getProperty('property10')->tableName, 'snippet', 'tableName set in subclass';
is +WGT::Class::Asset::Snippet->getProperty('property1')->tableName, 'asset', '... but inherited properties keep their tableName';
is +WGT::Class::Asset::Snippet->meta->find_attribute_by_name('property10')->tableName, 'snippet', 'tableName set in subclass';
is +WGT::Class::Asset::Snippet->meta->find_attribute_by_name('property1')->tableName, 'asset', '... but inherited properties keep their tableName';
cmp_bag(
[ map {$_->name} WGT::Class::AlsoAsset->meta->get_attributes ],