Convert all tests to done_testing.

[gitmo/Moose.git] / t / 060_compat / 004_extends_nonmoose_that_isa_moose_with_metarole.t

diff --git a/t/060_compat/004_extends_nonmoose_that_isa_moose_with_metarole.t b/t/060_compat/004_extends_nonmoose_that_isa_moose_with_metarole.t
index ba212df..78fe330 100644 (file)
--- a/t/060_compat/004_extends_nonmoose_that_isa_moose_with_metarole.t
+++ b/t/060_compat/004_extends_nonmoose_that_isa_moose_with_metarole.t
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
-use Test::More tests => 18;
+use Test::More;
+use Class::MOP ();
 
 {
     package My::Role;
@@ -34,6 +35,11 @@ use Test::More tests => 18;
         'SubSubClassUseBase meta metaclass does the My::Role role' );
 }
 
+# Note, remove metaclasses of the 'use base' classes after each test,
+# so that they have to be re-initialized - otherwise latter tests
+# would not demonstrate the original issue.
+Class::MOP::remove_metaclass_by_name('SubClassUseBase');
+
 {
     package OtherClass;
     use Moose;
@@ -61,6 +67,9 @@ use Test::More tests => 18;
         'MultiParent1 meta metaclass does the My::Role role' );
 }
 
+Class::MOP::remove_metaclass_by_name($_)
+    for qw( SubClassUseBase OtherSubClassUseBase );
+
 {
     package MultiParent2;
     use Moose;
@@ -78,6 +87,9 @@ use Test::More tests => 18;
         'MultiParent2 meta metaclass does the My::Role role' );
 }
 
+Class::MOP::remove_metaclass_by_name($_)
+    for qw( SubClassUseBase OtherSubClassUseBase );
+
 {
     package MultiParent3;
     use Moose;
@@ -95,6 +107,9 @@ use Test::More tests => 18;
         'MultiParent3 meta metaclass does the My::Role role' );
 }
 
+Class::MOP::remove_metaclass_by_name($_)
+    for qw( SubClassUseBase OtherSubClassUseBase );
+
 {
     package MultiParent4;
     use Moose;
@@ -112,6 +127,9 @@ use Test::More tests => 18;
         'MultiParent4 meta metaclass does the My::Role role' );
 }
 
+Class::MOP::remove_metaclass_by_name($_)
+    for qw( SubClassUseBase OtherSubClassUseBase );
+
 {
     package MultiChild1;
     use Moose;
@@ -129,6 +147,9 @@ use Test::More tests => 18;
         'MultiChild1 meta metaclass does the My::Role role' );
 }
 
+Class::MOP::remove_metaclass_by_name($_)
+    for qw( SubClassUseBase OtherSubClassUseBase );
+
 {
     package MultiChild2;
     use Moose;
@@ -146,6 +167,9 @@ use Test::More tests => 18;
         'MultiChild2 meta metaclass does the My::Role role' );
 }
 
+Class::MOP::remove_metaclass_by_name($_)
+    for qw( SubClassUseBase OtherSubClassUseBase );
+
 {
     package MultiChild3;
     use Moose;
@@ -163,6 +187,9 @@ use Test::More tests => 18;
         'MultiChild3 meta metaclass does the My::Role role' );
 }
 
+Class::MOP::remove_metaclass_by_name($_)
+    for qw( SubClassUseBase OtherSubClassUseBase );
+
 {
     package MultiChild4;
     use Moose;
@@ -180,3 +207,7 @@ use Test::More tests => 18;
         'MultiChild4 meta metaclass does the My::Role role' );
 }
 
+Class::MOP::remove_metaclass_by_name($_)
+    for qw( SubClassUseBase OtherSubClassUseBase );
+
+done_testing;