Commit | Line | Data |
149f4b2d |
1 | use strict; |
2 | use warnings; |
3 | |
1f071601 |
4 | use Test::More tests=>5; |
149f4b2d |
5 | use MooseX::Types; |
6 | use MooseX::Types::Moose qw(Any Item ); |
7 | |
8 | |
0f6bc652 |
9 | my $item = subtype as Item; |
149f4b2d |
10 | |
1f071601 |
11 | ok Item->equals('Item'); |
12 | ok Item->equals(Item); |
13 | |
149f4b2d |
14 | ok ( $item->is_subtype_of('Any'), |
15 | q[$item is subtype of 'Any']); |
16 | |
17 | ok ( Item->is_subtype_of('Any'), |
18 | q[Item is subtype of 'Any']); |
19 | |
149f4b2d |
20 | ok ( Item->is_subtype_of(Any), |
21 | q[Item is subtype of Any]); |
22 | |