X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F044_instance_metaclass_incompat_dyn.t;h=2dbb8d2d20ef26783dc44cbe6e022be5fbd2d1f7;hb=684b69cf390c142bfaab691eaa0c29488374a3a7;hp=e85e742f14c4191ceec585f4d1b7eea45c924b29;hpb=efd3d14c1cf03120dfd1ed7787f8050e55bb8319;p=gitmo%2FClass-MOP.git

diff --git a/t/044_instance_metaclass_incompat_dyn.t b/t/044_instance_metaclass_incompat_dyn.t
index e85e742..2dbb8d2 100644
--- a/t/044_instance_metaclass_incompat_dyn.t
+++ b/t/044_instance_metaclass_incompat_dyn.t
@@ -1,21 +1,18 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
-use Test::More tests => 6;
+use Test::More;
 
-BEGIN {use metaclass;    
-}
+use metaclass;
 
 # meta classes
-{   
+{
     package Foo::Meta::Instance;
-    use base 'Class::MOP::Instance';    
-    
+    use base 'Class::MOP::Instance';
+
     package Bar::Meta::Instance;
-    use base 'Class::MOP::Instance';    
-    
+    use base 'Class::MOP::Instance';
+
     package FooBar::Meta::Instance;
     use base 'Foo::Meta::Instance', 'Bar::Meta::Instance';
 }
@@ -38,14 +35,14 @@ $@ = undef;
 eval {
     package Foo::Foo;
     metaclass->import('instance_metaclass' => 'Bar::Meta::Instance');
-    Foo::Foo->meta->superclasses('Foo');    
+    Foo::Foo->meta->superclasses('Foo');
 };
 ok($@, '... Foo::Foo.meta => Bar::Meta is not compatible') || diag $@;
 
 $@ = undef;
 eval {
     package Bar::Bar;
-    metaclass->import('instance_metaclass' => 'Foo::Meta::Instance');  
+    metaclass->import('instance_metaclass' => 'Foo::Meta::Instance');
     Bar::Bar->meta->superclasses('Bar');
 };
 ok($@, '... Bar::Bar.meta => Foo::Meta is not compatible') || diag $@;
@@ -53,17 +50,17 @@ ok($@, '... Bar::Bar.meta => Foo::Meta is not compatible') || diag $@;
 $@ = undef;
 eval {
     package FooBar;
-    metaclass->import('instance_metaclass' => 'FooBar::Meta::Instance');   
-    FooBar->meta->superclasses('Foo');    
+    metaclass->import('instance_metaclass' => 'FooBar::Meta::Instance');
+    FooBar->meta->superclasses('Foo');
 };
 ok(!$@, '... FooBar.meta => FooBar::Meta is compatible') || diag $@;
 
 $@ = undef;
 eval {
     package FooBar2;
-    metaclass->import('instance_metaclass' => 'FooBar::Meta::Instance');   
-    FooBar2->meta->superclasses('Bar');    
+    metaclass->import('instance_metaclass' => 'FooBar::Meta::Instance');
+    FooBar2->meta->superclasses('Bar');
 };
 ok(!$@, '... FooBar2.meta => FooBar::Meta is compatible') || diag $@;
 
-
+done_testing;