X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F050_metaclasses%2Ffailing%2F010_extending_and_embedding_back_compat.t;fp=t%2F050_metaclasses%2Ffailing%2F010_extending_and_embedding_back_compat.t;h=0000000000000000000000000000000000000000;hb=fde8e43f95fe996fbc2a778aa259feeb04552171;hp=d1e05d532c8b070eea0d56ea2da9a05e8182bf52;hpb=0bdc9d38dfd3de07aad929f6629f8fa65d434c27;p=gitmo%2FMouse.git

diff --git a/t/050_metaclasses/failing/010_extending_and_embedding_back_compat.t b/t/050_metaclasses/failing/010_extending_and_embedding_back_compat.t
deleted file mode 100644
index d1e05d5..0000000
--- a/t/050_metaclasses/failing/010_extending_and_embedding_back_compat.t
+++ /dev/null
@@ -1,58 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 7;
-use Test::Exception;
-
-
-
-BEGIN {
-    package MyFramework::Base;
-    use Mouse;
-
-    package MyFramework::Meta::Base;
-    use Mouse;
-
-    extends 'Mouse::Meta::Class';
-
-    package MyFramework;
-    use Mouse;
-
-    sub import {
-        my $CALLER = caller();
-
-        strict->import;
-        warnings->import;
-
-        return if $CALLER eq 'main';
-        Mouse::init_meta( $CALLER, 'MyFramework::Base', 'MyFramework::Meta::Base' );
-        Mouse->import({ into => $CALLER });
-
-        return 1;
-    }
-}
-
-{
-    package MyClass;
-    BEGIN { MyFramework->import }
-
-    has 'foo' => (is => 'rw');
-}
-
-can_ok( 'MyClass', 'meta' );
-
-isa_ok(MyClass->meta, 'MyFramework::Meta::Base');
-isa_ok(MyClass->meta, 'Mouse::Meta::Class');
-
-my $obj = MyClass->new(foo => 10);
-isa_ok($obj, 'MyClass');
-isa_ok($obj, 'MyFramework::Base');
-isa_ok($obj, 'Mouse::Object');
-
-is($obj->foo, 10, '... got the right value');
-
-
-
-