X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F001_basic.t;h=6eec2d76bb50944086e51b66361dd899e2f4e036;hb=690981080856d9dded882dc621a6e3d43e6e8723;hp=b04bd5421c860208abbc29e24c3be6a26cadb13c;hpb=bfe4d0fc35c0b24b568cf6a0b4620a0df2aed649;p=gitmo%2FClass-MOP.git

diff --git a/t/001_basic.t b/t/001_basic.t
index b04bd54..6eec2d7 100644
--- a/t/001_basic.t
+++ b/t/001_basic.t
@@ -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 = Class::MOP::Class->initialize('Foo');
+my $Foo = Foo->meta;
 isa_ok($Foo, 'Class::MOP::Class');
 
-my $Bar = Class::MOP::Class->initialize('Bar');
+my $Bar = Bar->meta;
 isa_ok($Bar, 'Class::MOP::Class');
 
 is($Foo->name, 'Foo', '... Foo->name == Foo');
@@ -55,7 +56,7 @@ my $Baz = Class::MOP::Class->create(
                 superclasses => [ 'Bar' ]
             ));
 isa_ok($Baz, 'Class::MOP::Class');
-is(Class::MOP::Class->initialize('Baz'), $Baz, '... our metaclasses are singletons');
+is(Baz->meta, $Baz, '... our metaclasses are singletons');
 
 is($Baz->name, 'Baz', '... Baz->name == Baz');
 is($Baz->version, '0.10', '... Baz->version == 0.10');