getting ready for a 0.07 release

[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 $method = Class::MOP::Method->wrap(sub { 1 });
    is($method->meta, Class::MOP::Method->meta, '... instance and class both lead to the same meta');
}

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(
        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';