Merge branch 'stable'

[gitmo/Class-MOP.git] / t / 044_instance_metaclass_incompat_dyn.t

diff --git a/t/044_instance_metaclass_incompat_dyn.t b/t/044_instance_metaclass_incompat_dyn.t
index 9587930..2dbb8d2 100644 (file)
--- a/t/044_instance_metaclass_incompat_dyn.t
+++ b/t/044_instance_metaclass_incompat_dyn.t
@@ -1,22 +1,18 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
-use Test::More tests => 7;
+use Test::More;
 
-BEGIN {
-    use_ok('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';
 }
@@ -39,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 $@;
@@ -54,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;