From: gfx 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'; + }; +}