X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F060_compat%2F004_extends_nonmoose_that_isa_moose_with_metarole.t;h=78fe3307f21ef9c7dc587b0aac1cbfb3ca8190e5;hb=a28e50e44945358d15eb19e4688573741a319fe0;hp=bc175d49744077782d209bd67ebb42b4a6faf160;hpb=ef55236d74702a0abd8eaea73961381db5c11ae6;p=gitmo%2FMoose.git

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 bc175d4..78fe330 100644
--- 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,6 @@
 use strict;
 use warnings;
-use Test::More tests => 18;
+use Test::More;
 use Class::MOP ();
 
 {
@@ -35,9 +35,9 @@ use Class::MOP ();
         'SubSubClassUseBase meta metaclass does the My::Role role' );
 }
 
-# Note, remote 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.
+# 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');
 
 {
@@ -67,7 +67,8 @@ Class::MOP::remove_metaclass_by_name('SubClassUseBase');
         'MultiParent1 meta metaclass does the My::Role role' );
 }
 
-Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
+Class::MOP::remove_metaclass_by_name($_)
+    for qw( SubClassUseBase OtherSubClassUseBase );
 
 {
     package MultiParent2;
@@ -86,7 +87,8 @@ Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
         'MultiParent2 meta metaclass does the My::Role role' );
 }
 
-Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
+Class::MOP::remove_metaclass_by_name($_)
+    for qw( SubClassUseBase OtherSubClassUseBase );
 
 {
     package MultiParent3;
@@ -105,7 +107,8 @@ Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
         'MultiParent3 meta metaclass does the My::Role role' );
 }
 
-Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
+Class::MOP::remove_metaclass_by_name($_)
+    for qw( SubClassUseBase OtherSubClassUseBase );
 
 {
     package MultiParent4;
@@ -124,7 +127,8 @@ Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
         'MultiParent4 meta metaclass does the My::Role role' );
 }
 
-Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
+Class::MOP::remove_metaclass_by_name($_)
+    for qw( SubClassUseBase OtherSubClassUseBase );
 
 {
     package MultiChild1;
@@ -143,7 +147,8 @@ Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
         'MultiChild1 meta metaclass does the My::Role role' );
 }
 
-Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
+Class::MOP::remove_metaclass_by_name($_)
+    for qw( SubClassUseBase OtherSubClassUseBase );
 
 {
     package MultiChild2;
@@ -162,7 +167,8 @@ Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
         'MultiChild2 meta metaclass does the My::Role role' );
 }
 
-Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
+Class::MOP::remove_metaclass_by_name($_)
+    for qw( SubClassUseBase OtherSubClassUseBase );
 
 {
     package MultiChild3;
@@ -181,7 +187,8 @@ Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
         'MultiChild3 meta metaclass does the My::Role role' );
 }
 
-Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
+Class::MOP::remove_metaclass_by_name($_)
+    for qw( SubClassUseBase OtherSubClassUseBase );
 
 {
     package MultiChild4;
@@ -200,5 +207,7 @@ Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
         'MultiChild4 meta metaclass does the My::Role role' );
 }
 
-Class::MOP::remove_metaclass_by_name(qw/SubClassUseBase OtherSubClassUseBase/);
+Class::MOP::remove_metaclass_by_name($_)
+    for qw( SubClassUseBase OtherSubClassUseBase );
 
+done_testing;