From: Shawn M Moore <sartak@gmail.com>
Date: Tue, 24 Jun 2008 06:08:36 +0000 (+0000)
Subject: Test that the sugar from Moose::Role is unimported correctly
X-Git-Tag: 0_55~96
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fa4765373c16e79cd49a0cd97f099cb51c37f503;p=gitmo%2FMoose.git

Test that the sugar from Moose::Role is unimported correctly
---

diff --git a/t/030_roles/002_role.t b/t/030_roles/002_role.t
index 4026a3b..3b99de3 100644
--- a/t/030_roles/002_role.t
+++ b/t/030_roles/002_role.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 35;
+use Test::More tests => 37;
 use Test::Exception;
 
 BEGIN {  
@@ -72,7 +72,10 @@ is_deeply(
     [ sort $foo_role->get_method_list() ],
     [ 'boo', 'foo' ],
     '... got the right method list');
-    
+
+ok(FooRole->can('foo'), "locally defined methods are still there");
+ok(!FooRole->can('has'), "sugar was unimported");
+
 # attributes ...
 
 is_deeply(