use lib 't/lib', 'lib';
use Test::More;
-use Test::Exception;
+use Test::Fatal;
use Moose::Util::MetaRole;
+{
+ no warnings 'redefine';
+ *Moose::Deprecated::deprecated = sub { return };
+}
{
package My::Meta::Class;
}
}
-lives_ok {
+is( exception {
package UsesExportedMoose;
ExportsMoose->import;
-} 'import module which loads a role from disk during init_meta';
+}, undef, 'import module which loads a role from disk during init_meta' );
{
package Foo::Meta::Role;
'Parent constructor class has metarole from Parent'
);
-TODO:
- {
- local $TODO
- = 'Moose does not see that the child differs from the parent because it only checks the class and instance metaclasses do determine compatibility';
- ok(
- Child->meta->constructor_class->meta->can('does_role')
- && Child->meta->constructor_class->meta->does_role(
- 'Role::Foo'),
- 'Child constructor class has metarole from Parent'
- );
- }
+ ok(
+ Child->meta->constructor_class->meta->can('does_role')
+ && Child->meta->constructor_class->meta->does_role(
+ 'Role::Foo'),
+ 'Child constructor class has metarole from Parent'
+ );
}
done_testing;