[gitmo/Moose.git] / t / 010_basics / 018_universal_methods.t

#!perl

use strict;
use warnings;

use Test::More;

{
    package Foo;
    use Moose;
}


plan tests => scalar ( my @universal_methods = qw/isa can VERSION/ );

my $foo = Foo->new;

TODO: {
    local $TODO = 'UNIVERSAL methods should be available';

    for my $method ( @universal_methods ) {
       ok $foo->meta->find_method_by_name($method), "has UNIVERSAL method $method";
    }
};
Commit	Line	Data
6c13ef0d	1	#!perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More;
	7
	8	{
	9	package Foo;
	10	use Moose;
	11	}
	12
	13
	14	plan tests => scalar ( my @universal_methods = qw/isa can VERSION/ );
	15
	16	my $foo = Foo->new;
	17
	18	TODO: {
	19	local $TODO = 'UNIVERSAL methods should be available';
	20
	21	for my $method ( @universal_methods ) {
	22	ok $foo->meta->find_method_by_name($method), "has UNIVERSAL method $method";
	23	}
	24	};