move methods back into CMOP::Class, now that they're a separate mixin

[gitmo/Class-MOP.git] / t / 040_metaclass.t

diff --git a/t/040_metaclass.t b/t/040_metaclass.t
index 190d8b0..b2f3835 100644 (file)
--- a/t/040_metaclass.t
+++ b/t/040_metaclass.t
@@ -1,18 +1,14 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
-use Test::More tests => 12;
+use Test::More;
 
-BEGIN {
-    use_ok('metaclass');    
-}
+use metaclass;
 
 {
     package FooMeta;
     use base 'Class::MOP::Class';
-    
+
     package Foo;
     use metaclass 'FooMeta';
 }
@@ -24,17 +20,17 @@ isa_ok(Foo->meta, 'Class::MOP::Class');
 {
     package BarMeta;
     use base 'Class::MOP::Class';
-    
+
     package BarMeta::Attribute;
     use base 'Class::MOP::Attribute';
-    
+
     package BarMeta::Method;
-    use base 'Class::MOP::Method';        
-    
+    use base 'Class::MOP::Method';
+
     package Bar;
     use metaclass 'BarMeta' => (
         'attribute_metaclass' => 'BarMeta::Attribute',
-        'method_metaclass'    => 'BarMeta::Method',        
+        'method_metaclass'    => 'BarMeta::Method',
     );
 }
 
@@ -53,9 +49,10 @@ is(Bar->meta->method_metaclass, 'BarMeta::Method', '... got the right method met
 can_ok('Baz', 'meta');
 isa_ok(Baz->meta, 'Class::MOP::Class');
 
-eval {   
+eval {
     package Boom;
     metaclass->import('Foo');
 };
 ok($@, '... metaclasses must be subclass of Class::MOP::Class');
 
+done_testing;