Fix release year for last two releases
[gitmo/Moose.git] / t / 060_compat / 004_extends_nonmoose_that_isa_moose_with_metarole.t
index 6fbd85b..8ec5dcb 100644 (file)
@@ -23,10 +23,9 @@ use Class::MOP ();
     use Moose;
     use Test::More;
     use Test::Fatal;
-    ok ! exception {
+    is( exception {
         extends 'SubClassUseBase';
-    },
-    'Can extend non-Moose class with parent class that is a Moose class with a meta role';
+    }, undef, 'Can extend non-Moose class with parent class that is a Moose class with a meta role' );
 }
 
 {
@@ -55,10 +54,9 @@ Class::MOP::remove_metaclass_by_name('SubClassUseBase');
     use Moose;
     use Test::More;
     use Test::Fatal;
-    ok ! exception {
+    is( exception {
         extends qw( SubClassUseBase OtherSubClassUseBase );
-    },
-    'Can extend two non-Moose classes with parents that are different Moose metaclasses';
+    }, undef, 'Can extend two non-Moose classes with parents that are different Moose metaclasses' );
 }
 
 {
@@ -75,10 +73,9 @@ Class::MOP::remove_metaclass_by_name($_)
     use Moose;
     use Test::More;
     use Test::Fatal;
-    ok ! exception {
+    is( exception {
         extends qw( OtherSubClassUseBase SubClassUseBase );
-    },
-    'Can extend two non-Moose classes with parents that are different Moose metaclasses (reverse order)';
+    }, undef, 'Can extend two non-Moose classes with parents that are different Moose metaclasses (reverse order)' );
 }
 
 {
@@ -95,10 +92,9 @@ Class::MOP::remove_metaclass_by_name($_)
     use Moose;
     use Test::More;
     use Test::Fatal;
-    ok ! exception {
+    is( exception {
         extends qw( OtherClass SubClassUseBase );
-    },
-    'Can extend one Moose class and one non-Moose class';
+    }, undef, 'Can extend one Moose class and one non-Moose class' );
 }
 
 {
@@ -115,10 +111,9 @@ Class::MOP::remove_metaclass_by_name($_)
     use Moose;
     use Test::More;
     use Test::Fatal;
-    ok ! exception {
+    is( exception {
         extends qw( SubClassUseBase OtherClass );
-    },
-    'Can extend one non-Moose class and one Moose class';
+    }, undef, 'Can extend one non-Moose class and one Moose class' );
 }
 
 {
@@ -135,10 +130,9 @@ Class::MOP::remove_metaclass_by_name($_)
     use Moose;
     use Test::More;
     use Test::Fatal;
-    ok ! exception {
+    is( exception {
         extends 'MultiParent1';
-    },
-    'Can extend class that itself extends two non-Moose classes with Moose parents';
+    }, undef, 'Can extend class that itself extends two non-Moose classes with Moose parents' );
 }
 
 {
@@ -155,10 +149,9 @@ Class::MOP::remove_metaclass_by_name($_)
     use Moose;
     use Test::More;
     use Test::Fatal;
-    ok ! exception {
+    is( exception {
         extends 'MultiParent2';
-    },
-    'Can extend class that itself extends two non-Moose classes with Moose parents (reverse order)';
+    }, undef, 'Can extend class that itself extends two non-Moose classes with Moose parents (reverse order)' );
 }
 
 {
@@ -175,10 +168,9 @@ Class::MOP::remove_metaclass_by_name($_)
     use Moose;
     use Test::More;
     use Test::Fatal;
-    ok ! exception {
+    is( exception {
         extends 'MultiParent3';
-    },
-    'Can extend class that itself extends one Moose and one non-Moose parent';
+    }, undef, 'Can extend class that itself extends one Moose and one non-Moose parent' );
 }
 
 {
@@ -195,10 +187,9 @@ Class::MOP::remove_metaclass_by_name($_)
     use Moose;
     use Test::More;
     use Test::Fatal;
-    ok ! exception {
+    is( exception {
         extends 'MultiParent4';
-    },
-    'Can extend class that itself extends one non-Moose and one Moose parent';
+    }, undef, 'Can extend class that itself extends one non-Moose and one Moose parent' );
 }
 
 {