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::Method');
  11 }
  12
  13 my $meta = Class::MOP::Method->meta;
  14 isa_ok($meta, 'Class::MOP::Class');
  15
  16
  17 {
  18     my $meta = Class::MOP::Method->meta();
  19     isa_ok($meta, 'Class::MOP::Class');
  20
  21     foreach my $method_name (qw(
  22         meta
  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';