From: gfx <gfuji@cpan.org>
Date: Sun, 4 Oct 2009 06:17:44 +0000 (+0900)
Subject: Add tests for Mouse::Util::meta()
X-Git-Tag: 0.37_02~11
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eba6833390b2a96e3bd843a96de673311a7142bb;p=gitmo%2FMouse.git

Add tests for Mouse::Util::meta()
---

diff --git a/t/053-extends-meta.t b/t/053-extends-meta.t
index 76c9753..538aba7 100755
--- a/t/053-extends-meta.t
+++ b/t/053-extends-meta.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 12;
+use Test::More tests => 14;
 use Test::Exception;
 {
     package My::Meta::Class;
@@ -32,6 +32,7 @@ use Test::Exception;
 
 my $meta = My::Meta::Class->initialize('Foo');
 isa_ok $meta, 'My::Meta::Class';
+isa_ok $meta->meta, 'Mouse::Meta::Class';
 can_ok $meta, qw(name my_class_attr);
 is $meta->name, 'Foo';
 lives_and{
@@ -40,6 +41,7 @@ lives_and{
 
 $meta = My::Meta::Role->initialize('Bar');
 isa_ok $meta, 'My::Meta::Role';
+isa_ok $meta->meta, 'Mouse::Meta::Class';
 can_ok $meta, qw(name my_role_attr);
 is $meta->name, 'Bar';
 lives_and{