add applied_attribute metarole

[gitmo/MooseX-FollowPBP.git] / t / basic.t

diff --git a/t/basic.t b/t/basic.t
index c14d332..8f6c1ca 100644 (file)
--- 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();