Fix tests for Moose compatibility
gfx [Fri, 9 Oct 2009 04:58:04 +0000 (13:58 +0900)]
t/020_attributes/007_attribute_custom_metaclass.t
t/800_shikabased/008-create_class.t

index 1d3c977..9e702d7 100644 (file)
@@ -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;
index 4c80122..7d561e0 100644 (file)
@@ -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';
+    };
+}