Commit | Line | Data |
---|---|---|
149f4b2d | 1 | use strict; |
2 | use warnings; | |
3 | ||
a344ca96 | 4 | use Test::More; |
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 | ||
a344ca96 | 23 | done_testing; |