make inlining a bit more easily extensible

[gitmo/Class-MOP.git] / t / 042_metaclass_incompatibility_dyn.t

diff --git a/t/042_metaclass_incompatibility_dyn.t b/t/042_metaclass_incompatibility_dyn.t
index 8608bb3..4dab002 100644 (file)
--- a/t/042_metaclass_incompatibility_dyn.t
+++ b/t/042_metaclass_incompatibility_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;
     use base 'Class::MOP::Class';
-    
+
     package Bar::Meta;
     use base 'Class::MOP::Class';
-    
+
     package FooBar::Meta;
     use base 'Foo::Meta', 'Bar::Meta';
 }
@@ -39,7 +35,7 @@ $@ = undef;
 eval {
     package Foo::Foo;
     metaclass->import('Bar::Meta');
-    Foo::Foo->meta->superclasses('Foo');    
+    Foo::Foo->meta->superclasses('Foo');
 };
 ok($@, '... Foo::Foo.meta => Bar::Meta is not compatible') || diag $@;
 
@@ -55,7 +51,7 @@ $@ = undef;
 eval {
     package FooBar;
     metaclass->import('FooBar::Meta');
-    FooBar->meta->superclasses('Foo');    
+    FooBar->meta->superclasses('Foo');
 };
 ok(!$@, '... FooBar.meta => FooBar::Meta is compatible') || diag $@;
 
@@ -63,8 +59,8 @@ $@ = undef;
 eval {
     package FooBar2;
     metaclass->import('FooBar::Meta');
-    FooBar2->meta->superclasses('Bar');    
+    FooBar2->meta->superclasses('Bar');
 };
 ok(!$@, '... FooBar2.meta => FooBar::Meta is compatible') || diag $@;
 
-
+done_testing;