use strict;
use warnings;
use Test::More;
use Test::Fatal;
{
    package AttrHasTC;
    use Moose;
    has foo => (
        is  => 'ro',
        isa => 'Int',
    );
    has bar => (
        is  => 'ro',
    );
}
ok(
    AttrHasTC->meta->get_attribute('foo')->verify_against_type_constraint(42),
    'verify_against_type_constraint returns true with valid Int'
);
my $e = exception {
    AttrHasTC->meta->get_attribute('foo')
        ->verify_against_type_constraint('foo');
};
isa_ok(
    $e,
    'Moose::Exception::ValidationFailedForTypeConstraint',
    'exception thrown when verify_against_type_constraint fails'
);
ok(
    AttrHasTC->meta->get_attribute('bar')->verify_against_type_constraint(42),
    'verify_against_type_constraint returns true when attr has no TC'
);
done_testing;