subtype test

diff --git a/t/03.subtype.t b/t/03.subtype.t
new file mode 100644 (file)
index 0000000..b52da9d
--- /dev/null
+++ b/t/03.subtype.t
@@ -0,0 +1,25 @@
+
+use warnings FATAL => 'all';
+use strict;
+
+use MooseX::Types::Path::Class qw(Dir File);
+use Moose::Util::TypeConstraints;
+
+use Test::More;
+
+plan tests => 4;
+
+# check that Dir is a subtype of Path::Class::Dir, etc...
+
+my $tc;
+$tc = find_type_constraint(Dir);
+isa_ok( $tc, 'Moose::Meta::TypeConstraint' );
+ok( $tc->is_subtype_of('Path::Class::Dir'),
+    'Dir is subtype of Path::Class::Dir'
+);
+$tc = find_type_constraint(File);
+isa_ok( $tc, 'Moose::Meta::TypeConstraint' );
+ok( $tc->is_subtype_of('Path::Class::File'),
+    'File is subtype of Path::Class::File'
+);
+