From: Dave Rolsky <autarch@urth.org>
Date: Sun, 14 Sep 2008 02:41:57 +0000 (+0000)
Subject: Test that the metaclass role we apply for My::Class10 is actually applied
X-Git-Tag: 0.58~34^2~10
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b72373c4b79e67bb2ef12cb986dca92843930736;p=gitmo%2FMoose.git

Test that the metaclass role we apply for My::Class10 is actually applied
---

diff --git a/t/050_metaclasses/015_metarole.t b/t/050_metaclasses/015_metarole.t
index 89f88ce..6d5d459 100644
--- a/t/050_metaclasses/015_metarole.t
+++ b/t/050_metaclasses/015_metarole.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 68;
+use Test::More tests => 69;
 
 use Moose::Util::MetaRole;
 
@@ -439,6 +439,8 @@ use Moose::Util::MetaRole;
 {
     ok( My::Class10->meta()->meta()->meta()->does_role('Role::Foo'),
         q{My::Class10->meta()->meta() does Role::Foo } );
+    ok( My::Class10->meta()->meta()->does_role('Role::Bar'),
+        q{My::Class10->meta()->meta() does Role::Bar } );
     ok( My::Class10->meta()->isa('My::Meta::Class2'),
         q{... and My::Class10->meta still isa(My::Meta::Class2)} );
 }