t/cmop/universal_methods.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use Class::MOP;
   6
   7 my $meta_class = Class::MOP::Class->create_anon_class;
   8
   9 my @universal_methods = qw/isa can VERSION/;
  10 push @universal_methods, 'DOES' if $] >= 5.010;
  11
  12 TODO: {
  13     for my $method ( @universal_methods ) {
  14         ok $meta_class->find_method_by_name($method), "has UNIVERSAL method $method";
  15     }
  16 };
  17
  18 done_testing;