t/24_class_can_isa.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use Test::Fatal;
   6
   7 use MooseX::Types::TypeDecorator;
   8
   9 is(
  10     exception { MooseX::Types::TypeDecorator->isa('X') },
  11     undef,
  12     'no exception calling ->isa on MooseX::Types::TypeDecorator as class method'
  13 );
  14
  15 is(
  16     exception { MooseX::Types::TypeDecorator->can('X') },
  17     undef,
  18     'no exception calling ->can on MooseX::Types::TypeDecorator as class method'
  19 );
  20
  21 done_testing();