From: gfx <gfuji@cpan.org>
Date: Fri, 9 Oct 2009 04:58:04 +0000 (+0900)
Subject: Fix tests for Moose compatibility
X-Git-Tag: 0.37_05~12
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=85dcdab5610b5610f80e2c02233fbb87baab98ce;p=gitmo%2FMouse.git

Fix tests for Moose compatibility
---

diff --git a/t/020_attributes/007_attribute_custom_metaclass.t b/t/020_attributes/007_attribute_custom_metaclass.t
index 1d3c977..9e702d7 100644
--- a/t/020_attributes/007_attribute_custom_metaclass.t
+++ b/t/020_attributes/007_attribute_custom_metaclass.t
@@ -52,7 +52,7 @@ use Test::Exception;
     use Mouse;
 
     #extends 'Class::MOP::Attribute';
-    extends 'Mouse::Meta::Attribute';
+    extends 'Foo::Meta::Attribute';
 
     package Bar;
     use Mouse;
diff --git a/t/800_shikabased/008-create_class.t b/t/800_shikabased/008-create_class.t
index 4c80122..7d561e0 100644
--- a/t/800_shikabased/008-create_class.t
+++ b/t/800_shikabased/008-create_class.t
@@ -90,9 +90,12 @@ my $obj;
     $obj = $anon->name->new();
 }
 
-isa_ok $obj, 'Mouse::Object';
-can_ok $obj, 'meta';
-lives_and{
-    isa_ok $obj->meta, 'Mouse::Meta::Class';
-};
-
+SKIP:{
+    skip 'Moose has a bug', 3 if 'Mouse' eq 'Moose';
+
+    isa_ok $obj, 'Mouse::Object';
+    can_ok $obj, 'meta';
+    lives_and{
+        isa_ok $obj->meta, 'Mouse::Meta::Class';
+    };
+}