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

use methods for generating subs in definition

Browse source
This commit is contained in:
Graham Knop 2009-10-19 10:22:50 -05:00
parent cdbc94cdef
commit 1bd76f9442
2 changed files with 135 additions and 97 deletions
Download patch file Download diff file Expand all files Collapse all files

6
t/Definition.t
View file

@ -45,7 +45,7 @@ my $written;
use base qw(WGT::Class);
use WebGUI::Definition (
attribute2 => 'attribute 2 value',
properties => {
properties => [
property2 => {
label => 'property2 label',
defaultValue => sub { return "dynamic value" },
@ -53,7 +53,7 @@ my $written;
a_property => {
defaultValue => 1,
},
},
],
);
sub write {
@ -88,7 +88,7 @@ is_deeply [ $object->getProperties ], ['property1'],
'class has correct properties';
ok $called_getProperties, 'able to override getProperties';
undef $called_getProperties;
is_deeply [ $subclass_object->getProperties ], ['property1', 'a_property', 'property2'],
is_deeply [ $subclass_object->getProperties ], ['property1', 'property2', 'a_property'],
'subclass has correct properties';
ok $called_getProperties, 'subclass uses correctly overridden getProperties';