make inlining a bit more easily extensible
[gitmo/Class-MOP.git] / t / 045_metaclass_loads_classes.t
index e6bcc12..5ae9069 100644 (file)
@@ -1,16 +1,12 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
 use FindBin;
 use File::Spec::Functions;
 
-use Test::More tests => 9;
+use Test::More;
 
-BEGIN {
-    use_ok('Class::MOP');
-}
+use Class::MOP;
 
 use lib catdir($FindBin::Bin, 'lib');
 
@@ -41,3 +37,5 @@ ok(Class::MOP::is_class_loaded('MyMetaClass::Instance'), '... instance metaclass
 
 is($meta->method_metaclass,    'MyMetaClass::Method',  '... Correct method metaclass');
 ok(Class::MOP::is_class_loaded('MyMetaClass::Method'), '... method metaclass loaded');
+
+done_testing;