Revert autogenerated tests. Tests should not changed radically.
[gitmo/Mouse.git] / t / 030_roles / 045_role_compose_requires.t
diff --git a/t/030_roles/045_role_compose_requires.t b/t/030_roles/045_role_compose_requires.t
deleted file mode 100644 (file)
index 6852ec8..0000000
+++ /dev/null
@@ -1,149 +0,0 @@
-# See https://rt.cpan.org/Ticket/Display.html?id=46347
-# 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;
-use Test::Exception;
-
-{
-    package My::Role1;
-    use Mouse::Role;
-    requires 'test_output';
-}
-
-{
-    package My::Role2;
-    use Mouse::Role;
-    has test_output => ( is => 'rw' );
-    with 'My::Role1';
-}
-
-{
-    package My::Role3;
-    use Mouse::Role;
-    sub test_output { }
-    with 'My::Role1';
-}
-
-{
-    package My::Role4;
-    use Mouse::Role;
-    has test_output => ( is => 'rw' );
-}
-
-{
-    package My::Role5;
-    use Mouse::Role;
-    sub test_output { }
-}
-
-{
-    package My::Base1;
-    use Mouse;
-    has test_output => ( is => 'rw' );
-}
-
-{
-    package My::Base2;
-    use Mouse;
-    sub test_output { }
-}
-
-# Roles providing attributes/methods should satisfy requires() of other
-# roles they consume.
-{
-    local $TODO = "role attributes don't satisfy method requirements";
-    lives_ok { package My::Test1; use Mouse; with 'My::Role2'; }
-    'role2(provides attribute) consumes role1';
-}
-
-lives_ok { package My::Test2; use Mouse; with 'My::Role3'; }
-'role3(provides method) consumes role1';
-
-# As I understand the design, Roles composed in the same with() statement
-# should NOT demonstrate ordering dependency. Alter these tests if that
-# assumption is false. -Vince Veselosky
-{
-    local $TODO = "role attributes don't satisfy method requirements";
-    lives_ok { package My::Test3; use Mouse; with 'My::Role4', 'My::Role1'; }
-    'class consumes role4(provides attribute), role1';
-}
-
-{
-    local $TODO = "role attributes don't satisfy method requirements";
-    lives_ok { package My::Test4; use Mouse; with 'My::Role1', 'My::Role4'; }
-    'class consumes role1, role4(provides attribute)';
-}
-
-lives_ok { package My::Test5; use Mouse; with 'My::Role5', 'My::Role1'; }
-'class consumes role5(provides method), role1';
-
-lives_ok { package My::Test6; use Mouse; with 'My::Role1', 'My::Role5'; }
-'class consumes role1, role5(provides method)';
-
-# Inherited methods/attributes should satisfy requires(), as long as
-# extends() comes first in code order.
-lives_ok {
-    package My::Test7;
-    use Mouse;
-    extends 'My::Base1';
-    with 'My::Role1';
-}
-'class extends base1(provides attribute), consumes role1';
-
-lives_ok {
-    package My::Test8;
-    use Mouse;
-    extends 'My::Base2';
-    with 'My::Role1';
-}
-'class extends base2(provides method), consumes role1';
-
-# Attributes/methods implemented in class should satisfy requires()
-lives_ok {
-
-    package My::Test9;
-    use Mouse;
-    has 'test_output', is => 'rw';
-    with 'My::Role1';
-}
-'class provides attribute, consumes role1';
-
-lives_ok {
-
-    package My::Test10;
-    use Mouse;
-    sub test_output { }
-    with 'My::Role1';
-}
-'class provides method, consumes role1';
-
-# Roles composed in separate with() statements SHOULD demonstrate ordering
-# dependency. See comment with tests 3-6 above.
-lives_ok {
-    package My::Test11;
-    use Mouse;
-    with 'My::Role4';
-    with 'My::Role1';
-}
-'class consumes role4(provides attribute); consumes role1';
-
-dies_ok { package My::Test12; use Mouse; with 'My::Role1'; with 'My::Role4'; }
-'class consumes role1; consumes role4(provides attribute)';
-
-lives_ok {
-    package My::Test13;
-    use Mouse;
-    with 'My::Role5';
-    with 'My::Role1';
-}
-'class consumes role5(provides method); consumes role1';
-
-dies_ok { package My::Test14; use Mouse; with 'My::Role1'; with 'My::Role5'; }
-'class consumes role1; consumes role5(provides method)';
-
-done_testing;