Fix some tests of exceptions to check for the actual error message we…

… care about The test was checking for one word that appeared in the trace rather than the specific error message we expect to be thrown.
moose · Oct 22, 2014 · 091853c · 091853c
1 parent 28dfff0
commit 091853c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/t/cmop/metaclass_reinitialize.t b/t/cmop/metaclass_reinitialize.t
@@ -138,7 +138,7 @@ like( exception {
         attribute_metaclass => 'Baz::Meta::Attribute',
         method_metaclass    => 'Baz::Meta::Method',
     );
-}, qr/compatible/ );
+}, qr/\QAttribute (class_name) is required/ );
 
 {
     package Quuux::Meta::Attribute;

diff --git a/t/metaclasses/reinitialize.t b/t/metaclasses/reinitialize.t
@@ -159,7 +159,7 @@ like( exception {
         method_metaclass    => 'Bar::Meta::Method',
         attribute_metaclass => 'Bar::Meta::Attribute',
     );
-}, qr/compatible/ );
+}, qr/\QAttribute (class_name) is required/ );
 
 {
     package Baz::Meta::Class;
@@ -222,7 +222,7 @@ like( exception {
         method_metaclass    => 'Baz::Meta::Method',
         attribute_metaclass => 'Baz::Meta::Attribute',
     );
-}, qr/compatible/ );
+}, qr/\QAttribute (class_name) is required/ );
 
 {
     package Quux;