#!/usr/bin/perl
# This is automatically generated by author/import-moose-test.pl.
# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
use t::lib::MooseCompat;
use strict;
use warnings;
use Test::More;
use Test::Exception;
BEGIN {
use_ok('Mouse::Util::TypeConstraints');
}
foreach my $type_name (qw(
Any
Item
Bool
Undef
Defined
Value
Num
Int
Str
Ref
ScalarRef
ArrayRef
HashRef
CodeRef
RegexpRef
Object
)) {
is(find_type_constraint($type_name)->name,
$type_name,
'... got the right name for ' . $type_name);
}
# TODO:
# add tests for is_subtype_of which confirm the hierarchy
done_testing;