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

some additional definition testing

Browse source
This commit is contained in:
Graham Knop 2009-12-07 12:23:03 -06:00
parent 2c7eb7478e
commit c2fca8e178
1 changed files with 32 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

33
t/Definition.t
View file

@ -20,8 +20,22 @@ my $called_getProperties;
package WGT::Class; package WGT::Class;
use WebGUI::Definition; use WebGUI::Definition;
property 'property1' => (); attribute 'attribute1' => 'attribute1 value';
property 'property1' => (
arbitrary_key => 'arbitrary_value',
);
# attributes create methods
::can_ok +__PACKAGE__, 'attribute1';
# propeties create methods
::can_ok +__PACKAGE__, 'property1';
# role applied
::can_ok +__PACKAGE__, 'update';
# can retreive property metadata
::is +__PACKAGE__->getProperty('property1')->form->{'arbitrary_key'}, 'arbitrary_value';
} }
{ {
@ -31,7 +45,24 @@ my $called_getProperties;
attribute table => 'asset'; attribute table => 'asset';
property 'property1' => (); property 'property1' => ();
my $written;
sub write {
$written++;
}
::is +__PACKAGE__->meta->get_attribute('property1')->table, 'asset'; ::is +__PACKAGE__->meta->get_attribute('property1')->table, 'asset';
::can_ok +__PACKAGE__, 'update';
my $object = __PACKAGE__->new;
$object->set({property1 => 'property value'});
::is $object->property1, 'property value';
# write called
$object->update;
::is $written, 1;
} }