X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-FollowPBP.git;a=blobdiff_plain;f=t%2Fbasic.t;h=8f6c1cacf1bb85cea5952816d05d1e1dd49ad95a;hp=c14d332e29d3d58b7ed4c1200f008769c78bd66a;hb=097c939028f5fc12eec2597c87b17798474f7dc3;hpb=b2d351224e581deb1e7ef954f1f6e4cf604f2677

diff --git a/t/basic.t b/t/basic.t
index c14d332..8f6c1ca 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -64,4 +64,21 @@ ok( ! PBP3->can('set_thing2'), 'PBP3->set_thing2 does not exist' );
 ok( !PBP4->can('get_bare'), 'is => bare attribute is respected' );
 ok( !PBP4->can('set_bare'), 'is => bare attribute is respected' );
 
+{
+    package PBP::Role;
+    use Moose::Role;
+    use MooseX::FollowPBP;
+    has foo => (is => 'rw');
+}
+
+{
+    package PBP::WithRole;
+    use Moose;
+    with 'PBP::Role';
+}
+
+ok( PBP::WithRole->can('get_foo'), "works in a role" );
+ok( PBP::WithRole->can('set_foo'), "works in a role" );
+ok( !PBP::WithRole->can('foo'), "works in a role" );
+
 done_testing();