Use single quotes for consistency
Shawn M Moore [Wed, 26 Nov 2008 02:27:36 +0000 (02:27 +0000)]
lib/Moose/Meta/Role/Application/RoleSummation.pm
t/030_roles/006_role_exclusion.t

index c443e3d..be1265c 100644 (file)
@@ -79,7 +79,7 @@ sub check_role_exclusions {
             next unless $role->does_role($excluded);
 
             my @excluding = @{ $excluded_roles{$excluded} };
-            Moose->throw_error(sprintf 'Conflict detected: Role%s %s exclude%s role "%s"', (@excluding == 1 ? '' : 's'), join(', ', @excluding), (@excluding == 1 ? 's' : ''), $excluded);
+            Moose->throw_error(sprintf "Conflict detected: Role%s %s exclude%s role '%s'", (@excluding == 1 ? '' : 's'), join(', ', @excluding), (@excluding == 1 ? 's' : ''), $excluded);
         }
     }
 
index 30c2d0e..041e013 100644 (file)
@@ -62,7 +62,7 @@ the roles into the same class
     
     ::throws_ok {
         with 'Molecule::Organic', 'Molecule::Inorganic';
-    } qr/Conflict detected: Role Molecule::Organic excludes role "Molecule::Inorganic"/, 
+    } qr/Conflict detected: Role Molecule::Organic excludes role 'Molecule::Inorganic'/, 
     '... adding the role w/ excluded role conflict dies okay';    
     
     package My::Test3;