X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F401-meta-role.t;h=7fa345fd0b73c77dfdf96477131b3a8ae7ee577d;hb=513854c70d1a49d9c09c9f406cc30fd33fe95e59;hp=827cd3b39903b50a0657840f83de3760ad98314b;hpb=acf0f6434b244fd3141b43ace9d8d9a011b2b20b;p=gitmo%2FMouse.git diff --git a/t/401-meta-role.t b/t/401-meta-role.t index 827cd3b..7fa345f 100644 --- a/t/401-meta-role.t +++ b/t/401-meta-role.t @@ -1,7 +1,7 @@ #!/usr/bin/env perl use strict; use warnings; -use Test::More tests => 2; +use Test::More tests => 3; do { package Role; @@ -13,3 +13,5 @@ do { ok(Role->meta, "Role has a meta"); isa_ok(Role->meta, "Mouse::Meta::Role"); +is(Role->meta->name, "Role"); +