t/030_method.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 28;
   7 use Test::Exception;
   8
   9 BEGIN {
  10     use_ok('Class::MOP');
  11     use_ok('Class::MOP::Method');
  12 }
  13
  14 my $method = Class::MOP::Method->wrap(
  15     sub { 1 },
  16     package_name => 'main',
  17     name         => '__ANON__',
  18 );
  19 is($method->meta, Class::MOP::Method->meta, '... instance and class both lead to the same meta');
  20
  21 is($method->package_name, 'main', '... our package is main::');
  22 is($method->name, '__ANON__', '... our sub name is __ANON__');
  23 is($method->fully_qualified_name, 'main::__ANON__', '... our subs full name is main::__ANON__');
  24
  25 dies_ok { Class::MOP::Method->wrap } q{... can't call wrap() without some code};
  26 dies_ok { Class::MOP::Method->wrap([]) } q{... can't call wrap() without some code};
  27 dies_ok { Class::MOP::Method->wrap(bless {} => 'Fail') } q{... can't call wrap() without some code};
  28
  29 dies_ok { Class::MOP::Method->name } q{... can't call name() with a class};
  30 dies_ok { Class::MOP::Method->package_name } q{... can't call package_name() with a class};
  31 dies_ok { Class::MOP::Method->fully_qualified_name } q{... can't call fully_qualified_name() with a class};
  32
  33 my $meta = Class::MOP::Method->meta;
  34 isa_ok($meta, 'Class::MOP::Class');
  35
  36 foreach my $method_name (qw(
  37     wrap
  38         package_name
  39         name
  40     )) {
  41     ok($meta->has_method($method_name), '... Class::MOP::Method->has_method(' . $method_name . ')');
  42         my $method = $meta->get_method($method_name);
  43         is($method->package_name, 'Class::MOP::Method', '... our package is Class::MOP::Method');
  44         is($method->name, $method_name, '... our sub name is "' . $method_name . '"');
  45 }
  46
  47 dies_ok {
  48     Class::MOP::Method->wrap()
  49 } '... bad args for &wrap';
  50
  51 dies_ok {
  52     Class::MOP::Method->wrap('Fail')
  53 } '... bad args for &wrap';
  54
  55 dies_ok {
  56     Class::MOP::Method->wrap([])
  57 } '... bad args for &wrap';
  58
  59 dies_ok {
  60     Class::MOP::Method->wrap(sub { 'FAIL' })
  61 } '... bad args for &wrap';
  62
  63 dies_ok {
  64     Class::MOP::Method->wrap(sub { 'FAIL' }, package_name => 'main')
  65 } '... bad args for &wrap';
  66
  67 dies_ok {
  68     Class::MOP::Method->wrap(sub { 'FAIL' }, name => '__ANON__')
  69 } '... bad args for &wrap';
  70
  71
  72
  73
  74