diff --git a/t/Definition.t b/t/Definition.t index 057ce0b95..842b0a01e 100644 --- a/t/Definition.t +++ b/t/Definition.t @@ -22,7 +22,6 @@ use Test::Exception; my $session = WebGUI::Test->session; -my $called_getProperties; { package WGT::Class; use Moose; @@ -49,6 +48,9 @@ my $called_getProperties; ::can_ok +__PACKAGE__, 'get'; ::can_ok +__PACKAGE__, 'set'; + ::ok +__PACKAGE__->meta->does_role('WebGUI::Definition'); + ::ok +__PACKAGE__->meta->does_role('WebGUI::Definition::Role::Object'); + ::cmp_deeply( [ +__PACKAGE__->getProperties ], [qw/property1 property2/],