Regenerate test files

[gitmo/Mouse.git] / t / 050_metaclasses / failing / 016_metarole_w_metaclass_pm.t

diff --git a/t/050_metaclasses/failing/016_metarole_w_metaclass_pm.t b/t/050_metaclasses/failing/016_metarole_w_metaclass_pm.t
deleted file mode 100644 (file)
index e899624..0000000
--- a/t/050_metaclasses/failing/016_metarole_w_metaclass_pm.t
+++ /dev/null
@@ -1,109 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 8;
-
-use Mouse::Util::MetaRole;
-
-BEGIN
-{
-    package My::Meta::Class;
-    use Mouse;
-    extends 'Mouse::Meta::Class';
-}
-
-BEGIN
-{
-    package My::Meta::Attribute;
-    use Mouse;
-    extends 'Mouse::Meta::Attribute';
-}
-
-BEGIN
-{
-    package My::Meta::Method;
-    use Mouse;
-    extends 'Mouse::Meta::Method';
-}
-
-BEGIN
-{
-    package My::Meta::Instance;
-    use Mouse;
-    extends 'Mouse::Meta::Instance';
-}
-
-BEGIN
-{
-    package Role::Foo;
-    use Mouse::Role;
-    has 'foo' => ( is => 'ro', default => 10 );
-}
-
-{
-    package My::Class;
-
-    use metaclass 'My::Meta::Class';
-    use Mouse;
-}
-
-{
-    package My::Class2;
-
-    use metaclass 'My::Meta::Class' => (
-        attribute_metaclass => 'My::Meta::Attribute',
-        method_metaclass    => 'My::Meta::Method',
-        instance_metaclass  => 'My::Meta::Instance',
-    );
-
-    use Mouse;
-}
-
-{
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class       => 'My::Class',
-        metaclass_roles => ['Role::Foo'],
-    );
-
-    ok( My::Class->meta()->meta()->does_role('Role::Foo'),
-        'apply Role::Foo to My::Class->meta()' );
-    has_superclass( My::Class->meta(), 'My::Meta::Class',
-                    'apply_metaclass_roles works with metaclass.pm' );
-}
-
-{
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class                 => 'My::Class2',
-        attribute_metaclass_roles => ['Role::Foo'],
-        method_metaclass_roles    => ['Role::Foo'],
-        instance_metaclass_roles  => ['Role::Foo'],
-    );
-
-    ok( My::Class2->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
-        q{apply Role::Foo to My::Class2->meta()'s attribute metaclass} );
-    has_superclass( My::Class2->meta()->attribute_metaclass(), 'My::Meta::Attribute',
-                    '... and this does not interfere with attribute metaclass set via metaclass.pm' );
-    ok( My::Class2->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
-        q{apply Role::Foo to My::Class2->meta()'s method metaclass} );
-    has_superclass( My::Class2->meta()->method_metaclass(), 'My::Meta::Method',
-                    '... and this does not interfere with method metaclass set via metaclass.pm' );
-    ok( My::Class2->meta()->instance_metaclass()->meta()->does_role('Role::Foo'),
-        q{apply Role::Foo to My::Class2->meta()'s instance metaclass} );
-    has_superclass( My::Class2->meta()->instance_metaclass(), 'My::Meta::Instance',
-                    '... and this does not interfere with instance metaclass set via metaclass.pm' );
-}
-
-# like isa_ok but works with a class name, not just refs
-sub has_superclass {
-    my $thing  = shift;
-    my $parent = shift;
-    my $desc   = shift;
-
-    my %supers = map { $_ => 1 } $thing->meta()->superclasses();
-
-    local $Test::Builder::Level = $Test::Builder::Level + 1;
-
-    ok( $supers{$parent}, $desc );
-}