From 9155f70555d729193815181db5d2c1bd8917cf2a Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Mon, 25 Jan 2010 19:30:58 -0800 Subject: [PATCH] rework test to handle loss of getProperty. use find_attribute_by_name instead. --- t/Definition/Asset.t | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/t/Definition/Asset.t b/t/Definition/Asset.t index be71e484b..cbb31fcb9 100644 --- a/t/Definition/Asset.t +++ b/t/Definition/Asset.t @@ -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 ],