t/030_method.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 8;
   7 use Test::Exception;
   8
   9 BEGIN {
  10     use_ok('Class::MOP');
  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         wrap
  24         )) {
  25         ok($meta->has_method($method_name), '... Class::MOP::Method->has_method(' . $method_name . ')');
  26     }
  27 }
  28
  29 dies_ok {
  30     Class::MOP::Method->wrap()
  31 } '... bad args for &wrap';
  32
  33 dies_ok {
  34     Class::MOP::Method->wrap('Fail')
  35 } '... bad args for &wrap';
  36
  37 dies_ok {
  38     Class::MOP::Method->wrap([])
  39 } '... bad args for &wrap';