[Moose-commits] r7166 - in Mouse/trunk: . t/800_shikabased

[sartak at code2.0beta.co.uk]

Author: sartak
Date: 2008-12-21 20:18:09 -0800 (Sun, 21 Dec 2008)
New Revision: 7166

Modified:
   Mouse/trunk/
   Mouse/trunk/t/800_shikabased/008-create_class.t
Log:
 r77779 at onn:  sartak | 2008-12-21 23:18:01 -0500
 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



Property changes on: Mouse/trunk
___________________________________________________________________
Name: svk:merge
   - 08e7d58d-de06-4458-8c15-335e402ab116:/local/Mouse:77777
08e7d58d-de06-4458-8c15-335e402ab116:/local/Mouse-trunk:61565
3efe9002-19ed-0310-8735-a98156148065:/Mouse/branches/shika-based:6997
   + 08e7d58d-de06-4458-8c15-335e402ab116:/local/Mouse:77779
08e7d58d-de06-4458-8c15-335e402ab116:/local/Mouse-trunk:61565
3efe9002-19ed-0310-8735-a98156148065:/Mouse/branches/shika-based:6997

Modified: Mouse/trunk/t/800_shikabased/008-create_class.t
===================================================================
--- Mouse/trunk/t/800_shikabased/008-create_class.t	2008-12-22 04:15:00 UTC (rev 7165)
+++ Mouse/trunk/t/800_shikabased/008-create_class.t	2008-12-22 04:18:09 UTC (rev 7166)
@@ -66,9 +66,9 @@
         }
     );
     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__::/);
 }