# 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;
};
$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;
};