X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Froles%2Fapply_role.t;fp=t%2Froles%2Fapply_role.t;h=2f8d07fe9eb711c7c6c2f0c2c4663337a376f59e;hb=eea9eb4d0a9d6d7453cfb6fca6bb6aae618254c4;hp=1c2c38ed34b328e2540a553a607f09a53d5da7bf;hpb=6ea852f8c8a254271541fef9ec233b436a85cdb9;p=gitmo%2FMoose.git

diff --git a/t/roles/apply_role.t b/t/roles/apply_role.t
index 1c2c38e..2f8d07f 100644
--- a/t/roles/apply_role.t
+++ b/t/roles/apply_role.t
@@ -63,6 +63,11 @@ use Test::Fatal;
     with 'FooRole', 'BarRole';
 }
 
+{
+    package PlainJane;
+    sub new { return bless {}, __PACKAGE__; }
+}
+
 my $foo_class_meta = FooClass->meta;
 isa_ok( $foo_class_meta, 'Moose::Meta::Class' );
 
@@ -212,4 +217,13 @@ foreach my $foo ( $foo, $foobar ) {
     }
 }
 
+{
+    ok(!Moose::Util::find_meta('PlainJane'), 'not initialized');
+    Moose::Util::apply_all_roles('PlainJane', 'BarRole');
+    ok(Moose::Util::find_meta('PlainJane'), 'initialized');
+    ok(Moose::Util::find_meta('PlainJane')->does_role('BarRole'), 'does BarRole');
+    my $pj = PlainJane->new();
+    ok($pj->can('woot'), 'can woot');
+}
+
 done_testing;