use strict;
use warnings;
-use Test::More tests => 23;
+use Test::More;
use Test::Exception;
use Class::MOP;
use Class::MOP::Class;
-{
+{
package Foo;
use metaclass;
our $VERSION = '0.01';
-
+
package Bar;
our @ISA = ('Foo');
-
+
our $AUTHORITY = 'cpan:JRANDOM';
}
is_deeply([$Foo->superclasses], ['UNIVERSAL'], '... Foo->superclasses == (UNIVERSAL) now');
is_deeply(
- [ $Foo->class_precedence_list ],
- [ 'Foo', 'UNIVERSAL' ],
+ [ $Foo->class_precedence_list ],
+ [ 'Foo', 'UNIVERSAL' ],
'... Foo->class_precedence_list == (Foo, UNIVERSAL)');
is_deeply(
- [ $Bar->class_precedence_list ],
- [ 'Bar', 'Foo', 'UNIVERSAL' ],
+ [ $Bar->class_precedence_list ],
+ [ 'Bar', 'Foo', 'UNIVERSAL' ],
'... Bar->class_precedence_list == (Bar, Foo, UNIVERSAL)');
-
+
# create a class using Class::MOP::Class ...
my $Baz = Class::MOP::Class->create(
is_deeply([$Baz->superclasses], ['Bar'], '... Baz->superclasses == (Bar)');
is_deeply(
- [ $Baz->class_precedence_list ],
- [ 'Baz', 'Bar', 'Foo', 'UNIVERSAL' ],
+ [ $Baz->class_precedence_list ],
+ [ 'Baz', 'Bar', 'Foo', 'UNIVERSAL' ],
'... Baz->class_precedence_list == (Baz, Bar, Foo, UNIVERSAL)');
+done_testing;