Commit | Line | Data |
5a4d520a |
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(); |