t/030_method.t

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