use strict;
use warnings;
-use Test::More no_plan => 1;
+use Test::More tests => 19;
use Test::Exception;
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');