X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F800_shikabased%2F008-create_class.t;h=387861eb0f84d56f5d80412d22eb80b13590cdaf;hb=6cfa1e5e70616fb102915489c02d8347ffa912fb;hp=1566d900083422dad4f6c094f18d146714737b13;hpb=2608b11522c42ce940bcc72743cdee5bb9d0c120;p=gitmo%2FMouse.git diff --git a/t/800_shikabased/008-create_class.t b/t/800_shikabased/008-create_class.t index 1566d90..387861e 100644 --- a/t/800_shikabased/008-create_class.t +++ b/t/800_shikabased/008-create_class.t @@ -38,7 +38,7 @@ is FooBar->meta->name, "FooBar"; isa_ok( Mouse::Meta::Class->create( - package => "Baz", + "Baz", superclasses => [ "FooBar", "Mouse::Object" ], attributes => [ Mouse::Meta::Attribute->new( @@ -66,9 +66,9 @@ is Baz->new()->dooo, "iiiit"; } ); isa_ok($meta, "Mouse::Meta::Class"); - is $meta->name, "Mouse::Meta::Class::__ANON__::SERIAL::1"; + like($meta->name, qr/Class::__ANON__::/); is $meta->name->new->dooo(), "iiiit"; my $anon2 = Mouse::Meta::Class->create_anon_class(); - is $anon2->name, "Mouse::Meta::Class::__ANON__::SERIAL::2"; + like($anon2->name, qr/Class::__ANON__::/); }