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

diff --git a/t/030_roles/failing/006_role_exclusion.t b/t/030_roles/failing/006_role_exclusion.t
deleted file mode 100644
index e60a768..0000000
--- a/t/030_roles/failing/006_role_exclusion.t
+++ /dev/null
@@ -1,123 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 22;
-use Test::Exception;
-
-=pod
-
-The idea and examples for this feature are taken
-from the Fortress spec.
-
-http://research.sun.com/projects/plrg/fortress0903.pdf
-
-trait OrganicMolecule extends Molecule
-    excludes { InorganicMolecule }
-end
-trait InorganicMolecule extends Molecule end
-
-=cut
-
-{
-    package Molecule;
-    use Mouse::Role;
-
-    package Molecule::Organic;
-    use Mouse::Role;
-
-    with 'Molecule';
-    excludes 'Molecule::Inorganic';
-
-    package Molecule::Inorganic;
-    use Mouse::Role;
-
-    with 'Molecule';
-}
-
-ok(Molecule::Organic->meta->excludes_role('Molecule::Inorganic'), '... Molecule::Organic exludes Molecule::Inorganic');
-is_deeply(
-   [ Molecule::Organic->meta->get_excluded_roles_list() ],
-   [ 'Molecule::Inorganic' ],
-   '... Molecule::Organic exludes Molecule::Inorganic');
-
-=pod
-
-Check some basic conflicts when combining
-the roles into the same class
-
-=cut
-
-{
-    package My::Test1;
-    use Mouse;
-
-    ::lives_ok {
-        with 'Molecule::Organic';
-    } '... adding the role (w/ excluded roles) okay';
-
-    package My::Test2;
-    use Mouse;
-
-    ::throws_ok {
-        with 'Molecule::Organic', 'Molecule::Inorganic';
-    } qr/Conflict detected: Role Molecule::Organic excludes role 'Molecule::Inorganic'/,
-    '... adding the role w/ excluded role conflict dies okay';
-
-    package My::Test3;
-    use Mouse;
-
-    ::lives_ok {
-        with 'Molecule::Organic';
-    } '... adding the role (w/ excluded roles) okay';
-
-    ::throws_ok {
-        with 'Molecule::Inorganic';
-    } qr/Conflict detected: My::Test3 excludes role 'Molecule::Inorganic'/,
-    '... adding the role w/ excluded role conflict dies okay';
-}
-
-ok(My::Test1->does('Molecule::Organic'), '... My::Test1 does Molecule::Organic');
-ok(My::Test1->does('Molecule'), '... My::Test1 does Molecule');
-ok(My::Test1->meta->excludes_role('Molecule::Inorganic'), '... My::Test1 excludes Molecule::Organic');
-
-ok(!My::Test2->does('Molecule::Organic'), '... ! My::Test2 does Molecule::Organic');
-ok(!My::Test2->does('Molecule::Inorganic'), '... ! My::Test2 does Molecule::Inorganic');
-
-ok(My::Test3->does('Molecule::Organic'), '... My::Test3 does Molecule::Organic');
-ok(My::Test3->does('Molecule'), '... My::Test1 does Molecule');
-ok(My::Test3->meta->excludes_role('Molecule::Inorganic'), '... My::Test3 excludes Molecule::Organic');
-ok(!My::Test3->does('Molecule::Inorganic'), '... ! My::Test3 does Molecule::Inorganic');
-
-=pod
-
-Check some basic conflicts when combining
-the roles into the a superclass
-
-=cut
-
-{
-    package Methane;
-    use Mouse;
-
-    with 'Molecule::Organic';
-
-    package My::Test4;
-    use Mouse;
-
-    extends 'Methane';
-
-    ::throws_ok {
-        with 'Molecule::Inorganic';
-    } qr/Conflict detected: My::Test4 excludes role \'Molecule::Inorganic\'/,
-    '... cannot add exculded role into class which extends Methane';
-}
-
-ok(Methane->does('Molecule::Organic'), '... Methane does Molecule::Organic');
-ok(My::Test4->isa('Methane'), '... My::Test4 isa Methane');
-ok(My::Test4->does('Molecule::Organic'), '... My::Test4 does Molecule::Organic');
-ok(My::Test4->meta->does_role('Molecule::Organic'), '... My::Test4 meat does_role Molecule::Organic');
-ok(My::Test4->meta->excludes_role('Molecule::Inorganic'), '... My::Test4 meta excludes Molecule::Organic');
-ok(!My::Test4->does('Molecule::Inorganic'), '... My::Test4 does Molecule::Inorganic');
-