X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F050_metaclasses%2F023_easy_init_meta.t;fp=t%2F050_metaclasses%2F023_easy_init_meta.t;h=0000000000000000000000000000000000000000;hb=829433c47061dd70a608bfcd940113c4172b6950;hp=ac7eda885e14bed645b1ceacd4047235ba97ed96;hpb=51c788414482c813eb48fb417b08ba03134ff1a6;p=gitmo%2FMoose.git

diff --git a/t/050_metaclasses/023_easy_init_meta.t b/t/050_metaclasses/023_easy_init_meta.t
deleted file mode 100644
index ac7eda8..0000000
--- a/t/050_metaclasses/023_easy_init_meta.t
+++ /dev/null
@@ -1,128 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More;
-use Test::Moose qw(does_ok);
-
-{
-    package Foo::Trait::Class;
-    use Moose::Role;
-}
-
-{
-    package Foo::Trait::Attribute;
-    use Moose::Role;
-}
-
-{
-    package Foo::Role::Base;
-    use Moose::Role;
-}
-
-{
-    package Foo::Exporter;
-    use Moose::Exporter;
-
-    Moose::Exporter->setup_import_methods(
-        class_metaroles => {
-            class     => ['Foo::Trait::Class'],
-            attribute => ['Foo::Trait::Attribute'],
-        },
-        role_metaroles   => { role => ['Foo::Trait::Class'] },
-        base_class_roles => ['Foo::Role::Base'],
-    );
-}
-
-{
-    package Foo;
-    use Moose;
-    Foo::Exporter->import;
-
-    has foo => (is => 'ro');
-
-    ::does_ok(Foo->meta, 'Foo::Trait::Class');
-    ::does_ok(Foo->meta->get_attribute('foo'), 'Foo::Trait::Attribute');
-    ::does_ok('Foo', 'Foo::Role::Base');
-}
-
-{
-    package Foo::Exporter::WithMoose;
-    use Moose ();
-    use Moose::Exporter;
-
-    my ( $import, $unimport, $init_meta )
-        = Moose::Exporter->build_import_methods(
-        also            => 'Moose',
-        class_metaroles => {
-            class     => ['Foo::Trait::Class'],
-            attribute => ['Foo::Trait::Attribute'],
-        },
-        base_class_roles => ['Foo::Role::Base'],
-        install          => [qw(import unimport)],
-        );
-
-    sub init_meta {
-        my $package = shift;
-        my %options = @_;
-        ::pass('custom init_meta was called');
-        Moose->init_meta(%options);
-        return $package->$init_meta(%options);
-    }
-}
-
-{
-    package Foo2;
-    Foo::Exporter::WithMoose->import;
-
-    has(foo => (is => 'ro'));
-
-    ::isa_ok('Foo2', 'Moose::Object');
-    ::isa_ok(Foo2->meta, 'Moose::Meta::Class');
-    ::does_ok(Foo2->meta, 'Foo::Trait::Class');
-    ::does_ok(Foo2->meta->get_attribute('foo'), 'Foo::Trait::Attribute');
-    ::does_ok('Foo2', 'Foo::Role::Base');
-}
-
-{
-    package Foo::Role;
-    use Moose::Role;
-    Foo::Exporter->import;
-
-    ::does_ok(Foo::Role->meta, 'Foo::Trait::Class');
-}
-
-{
-    package Foo::Exporter::WithMooseRole;
-    use Moose::Role ();
-    use Moose::Exporter;
-
-    my ( $import, $unimport, $init_meta )
-        = Moose::Exporter->build_import_methods(
-        also           => 'Moose::Role',
-        role_metaroles => {
-            role      => ['Foo::Trait::Class'],
-            attribute => ['Foo::Trait::Attribute'],
-        },
-        install => [qw(import unimport)],
-        );
-
-    sub init_meta {
-        my $package = shift;
-        my %options = @_;
-        ::pass('custom init_meta was called');
-        Moose::Role->init_meta(%options);
-        return $package->$init_meta(%options);
-    }
-}
-
-{
-    package Foo2::Role;
-    Foo::Exporter::WithMooseRole->import;
-
-    ::isa_ok(Foo2::Role->meta, 'Moose::Meta::Role');
-    ::does_ok(Foo2::Role->meta, 'Foo::Trait::Class');
-}
-
-done_testing;