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

change aspect to define

Browse source
This commit is contained in:
Graham Knop 2010-02-17 16:25:13 -06:00
parent 57484beb66
commit 20ee527dbd
68 changed files with 218 additions and 218 deletions
Download patch file Download diff file Expand all files Collapse all files

16
t/Definition.t
View file

@ -27,7 +27,7 @@ my $called_getProperties;
package WGT::Class;
use WebGUI::Definition;
aspect 'aspect1' => 'aspect1 value';
define 'define1' => 'define1 value';
property 'property1' => (
arbitrary_key => 'arbitrary_value',
label => 'property1',
@ -37,10 +37,10 @@ my $called_getProperties;
label => 'property2',
);
# aspects create methods
::can_ok +__PACKAGE__, 'aspect1';
# define creates methods
::can_ok +__PACKAGE__, 'define1';
# propeties create methods
# properties create methods
::can_ok +__PACKAGE__, 'property1';
# role applied
@ -60,7 +60,7 @@ my $called_getProperties;
package WGT::Class2;
use WebGUI::Definition;
aspect 'aspect1' => 'aspect1 value';
define 'define1' => 'define1 value';
property 'property3' => ( label => 'label' );
property 'property1' => ( label => 'label' );
property 'property2' => ( label => 'label' );
@ -102,7 +102,7 @@ my $called_getProperties;
package WGT::Class3;
use WebGUI::Definition;
aspect 'aspect1' => 'aspect1 value';
define 'define1' => 'define1 value';
property 'property1' => (
label => ['webgui', 'WebGUI'],
hoverHelp => ['webgui help %s', 'WebGUI', 'extra'],
@ -145,7 +145,7 @@ my $called_getProperties;
use WebGUI::Definition;
extends 'WGT::Class3';
aspect 'aspect41' => 'aspect41 value';
define 'define41' => 'define41 value';
property 'property41' => (
label => ['webgui', 'WebGUI'],
);
@ -159,7 +159,7 @@ my $called_getProperties;
::cmp_bag (
[WGT::Class3->meta->get_all_attributes_list],
[qw/ property1 session /],
'get_all_aspects_list returns all aspects in all metaclasses for the class'
'get_all_attributes_list returns all attributes in all metaclasses for the class'
);
::cmp_bag (

12
t/Definition/Asset.t
View file

@ -24,7 +24,7 @@ use WebGUI::Test;
package WGT::Class::Atset;
use WebGUI::Definition::Asset;
aspect tableName => 'asset';
define tableName => 'asset';
::dies_ok { property 'property1' => (); } 'must have a fieldType';
::dies_ok { property 'property1' => (fieldType => 'text'); } 'must pass either a label or noFormPost flag';
::lives_ok { property 'property1' => (
@ -44,7 +44,7 @@ use WebGUI::Test;
package WGT::Class::Asset;
use WebGUI::Definition::Asset;
aspect tableName => 'asset';
define tableName => 'asset';
property 'property2' => (
fieldType => 'text',
label => 'property2',
@ -138,7 +138,7 @@ use WebGUI::Test;
package WGT::Class::AlsoAsset;
use WebGUI::Definition::Asset;
aspect tableName => 'asset';
define tableName => 'asset';
property 'property1' => (
fieldType => 'text',
label => 'property1',
@ -156,7 +156,7 @@ use WebGUI::Test;
use WebGUI::Definition::Asset;
extends 'WGT::Class::AlsoAsset';
aspect tableName => 'snippet';
define tableName => 'snippet';
property 'property10' => (
fieldType => 'text',
label => 'property10',
@ -211,7 +211,7 @@ use WebGUI::Test;
use WebGUI::Definition::Asset;
extends 'WGT::Class::AlsoAsset';
aspect tableName => 'snippet';
define tableName => 'snippet';
property 'property10' => (
fieldType => 'text',
label => 'property10',
@ -237,7 +237,7 @@ use WebGUI::Test;
use WebGUI::Definition::Asset;
extends 'WGT::Class::AlsoAsset';
aspect tableName => 'tertius';
define tableName => 'tertius';
property 'defaulted' => (
fieldType => 'text',
label => 'defaulted',