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

Add Role presence tests.

Browse source
This commit is contained in:
Colin Kuskie 2010-03-05 08:51:16 -08:00
parent 053b5a869e
commit 3c790d9ce5
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
t/Definition.t
View file

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