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

almost working using metaclass roles

Browse source
This commit is contained in:
Graham Knop 2010-02-26 16:53:21 -06:00
parent a2f0cbe9ba
commit 12fcdf201f
6 changed files with 116 additions and 60 deletions
Download patch file Download diff file Expand all files Collapse all files

7
t/Definition.t
View file

@ -25,6 +25,7 @@ my $session = WebGUI::Test->session;
my $called_getProperties;
{
package WGT::Class;
use Moose;
use WebGUI::Definition;
define 'define1' => 'define1 value';
@ -58,6 +59,7 @@ my $called_getProperties;
{
package WGT::Class2;
use Moose;
use WebGUI::Definition;
define 'define1' => 'define1 value';
@ -100,6 +102,7 @@ my $called_getProperties;
{
package WGT::Class3;
use Moose;
use WebGUI::Definition;
define 'define1' => 'define1 value';
@ -116,11 +119,12 @@ my $called_getProperties;
sub property1_options {
return { one => 1, two => 2, three => 3 };
}
sub named_url {
my ($self, $property, $property_name) = @_;
::note "Checking arguments passed to subroutine for defining a form property";
::isa_ok($self, 'WGT::Class3');
::isa_ok($property, 'WebGUI::Definition::Meta::Property');
::ok($property->can('form'), 'Correct property class given');
::is($property_name, 'named_url', 'form property name sent');
return $property->name;
}
@ -142,6 +146,7 @@ my $called_getProperties;
{
package WGT::Class4;
use Moose;
use WebGUI::Definition;
extends 'WGT::Class3';