From: Dave Rolsky <autarch@urth.org>
Date: Sat, 19 May 2012 03:51:35 +0000 (-0500)
Subject: Add failing test for bug introduced in 0.32 - cannot subtype Any
X-Git-Tag: v0.35~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Types.git;a=commitdiff_plain;h=5a4d520a4355ec3b91847fe24631f25b30647f59

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
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();