t/030_method.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More no_plan => 1;
   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         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';