[gitmo/Moose.git] / t / cmop / universal_methods.t

use strict;
use warnings;

use Test::More;
use Class::MOP;

my $meta_class = Class::MOP::Class->create_anon_class;

my @universal_methods = qw/isa can VERSION/;
push @universal_methods, 'DOES' if $] >= 5.010;

TODO: {
    for my $method ( @universal_methods ) {
        ok $meta_class->find_method_by_name($method), "has UNIVERSAL method $method";
    }
};

done_testing;
Commit	Line	Data
38bf2a25	1	use strict;
	2	use warnings;
	3
38bf2a25	4	use Test::More;
	5	use Class::MOP;
	6
	7	my $meta_class = Class::MOP::Class->create_anon_class;
	8
	9	my @universal_methods = qw/isa can VERSION/;
	10	push @universal_methods, 'DOES' if $] >= 5.010;
	11
	12	TODO: {
38bf2a25	13	for my $method ( @universal_methods ) {
050ec051	14	ok $meta_class->find_method_by_name($method), "has UNIVERSAL method $method";
38bf2a25	15	}
	16	};
	17
	18	done_testing;