Revert autogenerated tests. Tests should not changed radically.

[gitmo/Mouse.git] / t-failing / 100_bugs / 018_immutable_metaclass_does_role.t

diff --git a/t-failing/100_bugs/018_immutable_metaclass_does_role.t b/t-failing/100_bugs/018_immutable_metaclass_does_role.t
deleted file mode 100644 (file)
index 0766b6a..0000000
--- a/t-failing/100_bugs/018_immutable_metaclass_does_role.t
+++ /dev/null
@@ -1,96 +0,0 @@
-#!/usr/bin/perl
-# This is automatically generated by author/import-moose-test.pl.
-# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
-use t::lib::MooseCompat;
-
-use strict;
-use warnings;
-
-use Test::More;
-$TODO = q{Mouse is not yet completed};
-use Test::Exception;
-
-
-BEGIN {
-    package MyRole;
-    use Mouse::Role;
-
-    requires 'foo';
-
-    package MyMetaclass;
-    use Mouse qw(extends with);
-    extends 'Mouse::Meta::Class';
-       with 'MyRole';
-
-    sub foo { 'i am foo' }
-}
-
-{
-    package MyClass;
-    use metaclass ('MyMetaclass');
-    use Mouse;
-}
-
-my $mc = MyMetaclass->initialize('MyClass');
-isa_ok($mc, 'MyMetaclass');
-
-ok($mc->meta->does_role('MyRole'), '... the metaclass does the role');
-
-is(MyClass->meta, $mc, '... these metas are the same thing');
-is(MyClass->meta->meta, $mc->meta, '... these meta-metas are the same thing');
-
-my $a = MyClass->new;
-ok( $a->meta->meta->does_role('MyRole'), 'metaclass does MyRole' );
-is( $a->meta->foo, 'i am foo', '... foo method returns expected value' );
-ok( MyClass->meta->meta->does_role('MyRole'), 'metaclass does MyRole' );
-is( MyClass->meta->foo, 'i am foo', '... foo method returns expected value' );
-
-lives_ok {
-    MyClass->meta->make_immutable;
-} '... make MyClass immutable okay';
-
-is(MyClass->meta, $mc, '... these metas are still the same thing');
-is(MyClass->meta->meta, $mc->meta, '... these meta-metas are the same thing');
-
-ok( $a->meta->meta->does_role('MyRole'), 'metaclass does MyRole' );
-is( $a->meta->foo, 'i am foo', '... foo method returns expected value' );
-ok( MyClass->meta->meta->does_role('MyRole'), 'metaclass does MyRole' );
-is( MyClass->meta->foo, 'i am foo', '... foo method returns expected value' );
-
-lives_ok {
-    MyClass->meta->make_mutable;
-} '... make MyClass mutable okay';
-
-is(MyClass->meta, $mc, '... these metas are still the same thing');
-is(MyClass->meta->meta, $mc->meta, '... these meta-metas are the same thing');
-
-ok( $a->meta->meta->does_role('MyRole'), 'metaclass does MyRole' );
-is( $a->meta->foo, 'i am foo', '... foo method returns expected value' );
-ok( MyClass->meta->meta->does_role('MyRole'), 'metaclass does MyRole' );
-is( MyClass->meta->foo, 'i am foo', '... foo method returns expected value' );
-
-lives_ok {
-    MyMetaclass->meta->make_immutable;
-} '... make MyMetaclass immutable okay';
-
-is(MyClass->meta, $mc, '... these metas are still the same thing');
-is(MyClass->meta->meta, $mc->meta, '... these meta-metas are the same thing');
-
-ok( $a->meta->meta->does_role('MyRole'), 'metaclass does MyRole' );
-is( $a->meta->foo, 'i am foo', '... foo method returns expected value' );
-ok( MyClass->meta->meta->does_role('MyRole'), 'metaclass does MyRole' );
-is( MyClass->meta->foo, 'i am foo', '... foo method returns expected value' );
-
-lives_ok {
-    MyClass->meta->make_immutable;
-} '... make MyClass immutable (again) okay';
-
-is(MyClass->meta, $mc, '... these metas are still the same thing');
-is(MyClass->meta->meta, $mc->meta, '... these meta-metas are the same thing');
-
-ok( $a->meta->meta->does_role('MyRole'), 'metaclass does MyRole' );
-is( $a->meta->foo, 'i am foo', '... foo method returns expected value' );
-ok( MyClass->meta->meta->does_role('MyRole'), 'metaclass does MyRole' );
-is( MyClass->meta->foo, 'i am foo', '... foo method returns expected value' );
-
-done_testing;