[gitmo/Class-MOP.git] / t / 030_method.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 9;
use Test::Exception;

BEGIN {
    use_ok('Class::MOP');    
    use_ok('Class::MOP::Method');
}

my $meta = Class::MOP::Method->meta;
isa_ok($meta, 'Class::MOP::Class');


{
    my $meta = Class::MOP::Method->meta();
    isa_ok($meta, 'Class::MOP::Class');
    
    foreach my $method_name (qw(
        meta 
        wrap
        )) {
        ok($meta->has_method($method_name), '... Class::MOP::Method->has_method(' . $method_name . ')');
    }
}

dies_ok {
    Class::MOP::Method->wrap()
} '... bad args for &wrap';

dies_ok {
    Class::MOP::Method->wrap('Fail')
} '... bad args for &wrap';

dies_ok {
    Class::MOP::Method->wrap([])
} '... bad args for &wrap';
Commit	Line	Data
cbd9f942	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
1a7ebbb3	6	use Test::More tests => 9;
cbd9f942	7	use Test::Exception;
	8
	9	BEGIN {
727919c5	10	use_ok('Class::MOP');
cbd9f942	11	use_ok('Class::MOP::Method');
	12	}
	13
	14	my $meta = Class::MOP::Method->meta;
	15	isa_ok($meta, 'Class::MOP::Class');
	16
	17
	18	{
	19	my $meta = Class::MOP::Method->meta();
	20	isa_ok($meta, 'Class::MOP::Class');
	21
	22	foreach my $method_name (qw(
	23	meta
	24	wrap
	25	)) {
	26	ok($meta->has_method($method_name), '... Class::MOP::Method->has_method(' . $method_name . ')');
	27	}
	28	}
	29
	30	dies_ok {
	31	Class::MOP::Method->wrap()
	32	} '... bad args for &wrap';
	33
	34	dies_ok {
	35	Class::MOP::Method->wrap('Fail')
	36	} '... bad args for &wrap';
	37
	38	dies_ok {
	39	Class::MOP::Method->wrap([])
	40	} '... bad args for &wrap';