getting close to a 0.07 release
[gitmo/Class-MOP.git] / t / 001_basic.t
index ce622a8..6eec2d7 100644 (file)
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More no_plan => 1;
+use Test::More tests => 19;
 use Test::Exception;
 
 BEGIN {
@@ -13,16 +13,17 @@ BEGIN {
 
 {   
     package Foo;
+    use metaclass;
     our $VERSION = '0.01';
     
     package Bar;
     our @ISA = ('Foo');
 }
 
-my $Foo = Foo->meta();
+my $Foo = Foo->meta;
 isa_ok($Foo, 'Class::MOP::Class');
 
-my $Bar = Bar->meta();
+my $Bar = Bar->meta;
 isa_ok($Bar, 'Class::MOP::Class');
 
 is($Foo->name, 'Foo', '... Foo->name == Foo');