add applied_attribute metarole

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

diff --git a/t/basic.t b/t/basic.t
index 520561c..dc5c65f 100644 (file)
--- a/t/basic.t
+++ b/t/basic.t
@@ -68,4 +68,20 @@ ok( SAA3->can('set_it'),      'SAA3->set_it does exist' );
 ok( !SAA4->can('bare'),     'SAA4->bare does not exist' );
 ok( !SAA4->can('set_bare'), 'SAA4->set_bare does not exist' );
 
+{
+    package SAA::Role;
+    use Moose::Role;
+    use MooseX::SemiAffordanceAccessor;
+    has foo => (is => 'rw');
+}
+
+{
+    package SAA::WithRole;
+    use Moose;
+    with 'SAA::Role';
+}
+
+ok( SAA::WithRole->can('foo'), "roles work" );
+ok( SAA::WithRole->can('set_foo'), "roles work" );
+
 done_testing();