X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=tool%2Fcreate-moose-compatibility-tests.pl;h=6289344394114eee18fec8542d8b9b4955440748;hp=b63ba9bc8c002ad59aff53326f7584378ab167d3;hb=431e4817af5380b349d562cafde91777db982a2a;hpb=bd0fe31fdcb1aefad78cad60d01dd0615e2cba9c

diff --git a/tool/create-moose-compatibility-tests.pl b/tool/create-moose-compatibility-tests.pl
index b63ba9b..6289344 100644
--- a/tool/create-moose-compatibility-tests.pl
+++ b/tool/create-moose-compatibility-tests.pl
@@ -13,17 +13,20 @@ File::Path::rmtree(File::Spec->catfile('xt', 'compatibility'));
 # some test does not pass... currently skip it.
 my %SKIP_TEST = (
     '016-trigger.t'    => "trigger's argument is incompatble :(",
-    '810-isa-or.t'     => "Mouse has a [BUG]",
+    '810-isa-or.t'     => "Mouse has a bug",
 
     '052-undefined-type-in-union.t' => "Mouse accepts undefined type as a member of union types",
     '054-anon-leak.t'     => 'Moose has memory leaks',
 
+    '059-weak-with-default.t' => 'Moose has a bug',
+
     '600-tiny-tiny.t'     => "Moose doesn't support ::Tiny",
     '601-tiny-mouse.t'    => "Moose doesn't support ::Tiny",
     '602-mouse-tiny.t'    => "Moose doesn't support ::Tiny",
     '603-mouse-pureperl.t'=> "Moose doesn't have ::PurePerl",
 
-    '031_roles_applied_in_create.t' => 't/lib/* classes are not Moose classes/roles',
+    '031_roles_applied_in_create.t' => 't/lib/*.pm are not for Moose',
+    '013_metaclass_traits.t'        => 't/lib/*.pm are not for Moose',
 );
 
 my @compat_tests;
@@ -63,6 +66,7 @@ File::Find::find(
                 };
                 $src =~ s/Mouse::(?:Util::)?is_class_loaded/Class::MOP::is_class_loaded/g;
                 $src =~ s/Mouse::(?:Util::)?load_class/Class::MOP::load_class/g;
+                $src =~ s/Mouse::Util::class_of/Class::MOP::class_of/g;
                 $src =~ s/Mouse/Moose/g;
                 $src;
             };