Regenerate test files

[gitmo/Mouse.git] / t / 050_metaclasses / failing / 003_moose_w_metaclass.t

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 (file)
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');
-}