getting closer with the method thing

[gitmo/Class-MOP.git] / t / 001_basic.t

diff --git a/t/001_basic.t b/t/001_basic.t
index 9ffcea2..b04bd54 100644 (file)
--- a/t/001_basic.t
+++ b/t/001_basic.t
@@ -4,6 +4,7 @@ use strict;
 use warnings;
 
 use Test::More no_plan => 1;
+use Test::Exception;
 
 BEGIN {
     use_ok('Class::MOP');   
@@ -18,10 +19,10 @@ BEGIN {
     our @ISA = ('Foo');
 }
 
-my $Foo = Foo->meta();
+my $Foo = Class::MOP::Class->initialize('Foo');
 isa_ok($Foo, 'Class::MOP::Class');
 
-my $Bar = Bar->meta();
+my $Bar = Class::MOP::Class->initialize('Bar');
 isa_ok($Bar, 'Class::MOP::Class');
 
 is($Foo->name, 'Foo', '... Foo->name == Foo');
@@ -54,7 +55,7 @@ my $Baz = Class::MOP::Class->create(
                 superclasses => [ 'Bar' ]
             ));
 isa_ok($Baz, 'Class::MOP::Class');
-is(Baz->meta, $Baz, '... our metaclasses are singletons');
+is(Class::MOP::Class->initialize('Baz'), $Baz, '... our metaclasses are singletons');
 
 is($Baz->name, 'Baz', '... Baz->name == Baz');
 is($Baz->version, '0.10', '... Baz->version == 0.10');
@@ -65,5 +66,3 @@ is_deeply(
     [ $Baz->class_precedence_list ], 
     [ 'Baz', 'Bar', 'Foo', 'UNIVERSAL' ], 
     '... Baz->class_precedence_list == (Baz, Bar, Foo, UNIVERSAL)');
-
-