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

diff --git a/t/050_metaclasses/failing/003_moose_w_metaclass.t b/t/050_metaclasses/failing/003_moose_w_metaclass.t
deleted file mode 100644
index 19fd54e..0000000
--- a/t/050_metaclasses/failing/003_moose_w_metaclass.t
+++ /dev/null
@@ -1,56 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 4;
-use Test::Exception;
-
-
-
-=pod
-
-This test demonstrates that Mouse will respect
-a metaclass previously set with the metaclass
-pragma.
-
-It also checks an error condition where that
-metaclass must be a Mouse::Meta::Class subclass
-in order to work.
-
-=cut
-
-
-{
-    package Foo::Meta;
-    use strict;
-    use warnings;
-
-    use base 'Mouse::Meta::Class';
-
-    package Foo;
-    use strict;
-    use warnings;
-    use metaclass 'Foo::Meta';
-    ::use_ok('Mouse');
-}
-
-isa_ok(Foo->meta, 'Foo::Meta');
-
-{
-    package Bar::Meta;
-    use strict;
-    use warnings;
-
-    use base 'Class::MOP::Class';
-
-    package Bar;
-    use strict;
-    use warnings;
-    use metaclass 'Bar::Meta';
-    eval 'use Mouse;';
-    ::ok($@, '... could not load moose without correct metaclass');
-    ::like($@,
-        qr/^Bar already has a metaclass, but it does not inherit Mouse::Meta::Class/,
-        '... got the right error too');
-}