4 use Test::More tests=>6;
6 use MooseX::Types::Moose qw(Any Item );
9 my $item = subtype as 'Item';
11 ok ( $item->is_subtype_of('Any'),
12 q[$item is subtype of 'Any']);
14 ok ( Item->is_subtype_of('Any'),
15 q[Item is subtype of 'Any']);
17 ok ( $item->is_subtype_of(Any),
18 q[Item is subtype of Any]);
20 ok ( Item->is_subtype_of(Any),
21 q[Item is subtype of Any]);
23 my $any = subtype as 'Any';
25 ok ( $item->is_subtype_of($any),
26 q[$item is subtype of $any]);
28 ok ( Item->is_subtype_of($any),
29 q[Item is subtype of $any]);