t/23_any_subtype.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use Test::Fatal;
   6
   7 use MooseX::Types -declare => ['Foo'];
   8 use MooseX::Types::Moose qw( Any );
   9
  10 is(
  11     exception { subtype Foo, as Any },
  12     undef,
  13     'no exception when subtyping Any type'
  14 );
  15
  16 done_testing();