From: Shawn M Moore Date: Mon, 22 Dec 2008 04:18:09 +0000 (+0000) Subject: Write the anon-class test such that we can run it against Moose, and if we create... X-Git-Tag: 0.19~77 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0033da82b431e8eb16c97218725e0f868ee02b1e;p=gitmo%2FMouse.git Write the anon-class test such that we can run it against Moose, and if we create anonymous classes during Mouse load it'll be okay --- diff --git a/t/800_shikabased/008-create_class.t b/t/800_shikabased/008-create_class.t index 3d8dcc3..387861e 100644 --- a/t/800_shikabased/008-create_class.t +++ b/t/800_shikabased/008-create_class.t @@ -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__::/); }