t/030_method.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 25;
   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(sub { 1 });
  15 is($method->meta, Class::MOP::Method->meta, '... instance and class both lead to the same meta');
  16
  17 is($method->package_name, 'main', '... our package is main::');
  18 is($method->name, '__ANON__', '... our sub name is __ANON__');
  19 is($method->fully_qualified_name, 'main::__ANON__', '... our subs full name is main::__ANON__');
  20
  21 dies_ok { Class::MOP::Method->wrap } '... cant call this method without some code';
  22 dies_ok { Class::MOP::Method->wrap([]) } '... cant call this method without some code';
  23 dies_ok { Class::MOP::Method->wrap(bless {} => 'Fail') } '... cant call this method without some code';
  24
  25 dies_ok { Class::MOP::Method->name } '... cant call this method with a class';
  26 dies_ok { Class::MOP::Method->package_name } '... cant call this method with a class';
  27 dies_ok { Class::MOP::Method->fully_qualified_name } '... cant call this method with a class';
  28
  29 my $meta = Class::MOP::Method->meta;
  30 isa_ok($meta, 'Class::MOP::Class');
  31
  32 foreach my $method_name (qw(
  33     wrap
  34         package_name
  35         name
  36     )) {
  37     ok($meta->has_method($method_name), '... Class::MOP::Method->has_method(' . $method_name . ')');
  38         my $method = $meta->get_method($method_name);
  39         is($method->package_name, 'Class::MOP::Method', '... our package is Class::MOP::Method');
  40         is($method->name, $method_name, '... our sub name is "' . $method_name . '"');
  41 }
  42
  43 dies_ok {
  44     Class::MOP::Method->wrap()
  45 } '... bad args for &wrap';
  46
  47 dies_ok {
  48     Class::MOP::Method->wrap('Fail')
  49 } '... bad args for &wrap';
  50
  51 dies_ok {
  52     Class::MOP::Method->wrap([])
  53 } '... bad args for &wrap';