fix for prototype undecl issue when type constraint utils loaded before consumers...

[gitmo/Moose.git] / t / 045_role_exclusion.t

diff --git a/t/045_role_exclusion.t b/t/045_role_exclusion.t
index ed6a7ac..2f99164 100644 (file)
--- a/t/045_role_exclusion.t
+++ b/t/045_role_exclusion.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 15;
+use Test::More tests => 24;
 use Test::Exception;
 
 BEGIN {
@@ -27,21 +27,15 @@ trait InorganicMolecule extends Molecule end
 
 {
     package Molecule;
-    use strict;
-    use warnings;
     use Moose::Role;
 
     package Molecule::Organic;
-    use strict;
-    use warnings;
     use Moose::Role;
     
     with 'Molecule';
     excludes 'Molecule::Inorganic';
     
     package Molecule::Inorganic;
-    use strict;
-    use warnings;
     use Moose::Role;     
     
     with 'Molecule';       
@@ -53,10 +47,15 @@ is_deeply(
    [ '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 strict;
-    use warnings;
     use Moose;
     
     ::lives_ok {
@@ -64,18 +63,14 @@ is_deeply(
     } '... adding the role (w/ excluded roles) okay';
 
     package My::Test2;
-    use strict;
-    use warnings;
     use Moose;
     
     ::throws_ok {
         with 'Molecule::Organic', 'Molecule::Inorganic';
-    } qr/Conflict detected: Class::MOP::Class::__ANON__::SERIAL::1 excludes role \'Molecule::Inorganic\'/, 
+    } qr/Conflict detected: .+ excludes role \'Molecule::Inorganic\'/, 
     '... adding the role w/ excluded role conflict dies okay';    
     
     package My::Test3;
-    use strict;
-    use warnings;
     use Moose;
     
     ::lives_ok {
@@ -89,18 +84,45 @@ is_deeply(
 }
 
 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 Moose;
+    
+    with 'Molecule::Organic';
+    
+    package My::Test4;
+    use Moose;
+    
+    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');