Commit | Line | Data |
fdee25e8 |
1 | |
2 | use warnings FATAL => 'all'; |
3 | use strict; |
4 | |
5 | use MooseX::Types::Path::Class qw(Dir File); |
6 | use Moose::Util::TypeConstraints; |
7 | |
8 | use Test::More; |
9 | |
10 | plan tests => 4; |
11 | |
12 | # check that Dir is a subtype of Path::Class::Dir, etc... |
13 | |
14 | my $tc; |
15 | $tc = find_type_constraint(Dir); |
16 | isa_ok( $tc, 'Moose::Meta::TypeConstraint' ); |
17 | ok( $tc->is_subtype_of('Path::Class::Dir'), |
18 | 'Dir is subtype of Path::Class::Dir' |
19 | ); |
20 | $tc = find_type_constraint(File); |
21 | isa_ok( $tc, 'Moose::Meta::TypeConstraint' ); |
22 | ok( $tc->is_subtype_of('Path::Class::File'), |
23 | 'File is subtype of Path::Class::File' |
24 | ); |
25 | |