From 3c790d9ce5920846548285e02f38ae30d340ee3a Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 5 Mar 2010 08:51:16 -0800
Subject: [PATCH] Add Role presence tests.

---
 t/Definition.t | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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/],