Add failing test for bug introduced in 0.32 - cannot subtype Any

diff --git a/t/23_any_subtype.t b/t/23_any_subtype.t
new file mode 100644 (file)
index 0000000..b73b9d5
--- /dev/null
+++ b/t/23_any_subtype.t
@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Fatal;
+
+use MooseX::Types -declare => ['Foo'];
+use MooseX::Types::Moose qw( Any );
+
+is(
+    exception { subtype Foo, as Any },
+    undef,
+    'no exception when subtyping Any type'
+);
+
+done_testing();