t/032_universal_methods.t

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