+{
+ my $tc = eval {
+ LaTeX::TikZ::Meta::TypeConstraint::Autocoerce->new(
+ parent => undef,
+ );
+ };
+ like $@, qr/^No meta object for undefined parent/, 'Undef parent';
+}
+
+{
+ my $parent = 'LaTeX::TikZ::A::Class::Likely::Not::To::Exist';
+ my $tc = eval {
+ LaTeX::TikZ::Meta::TypeConstraint::Autocoerce->new(
+ parent => $parent,
+ );
+ };
+ like $@, qr/^No meta object for parent \Q$parent\E/, 'Nonexistent parent';
+}
+
+{
+ my $tc = eval {
+ LaTeX::TikZ::Meta::TypeConstraint::Autocoerce->new(
+ parent => 'LaTeX::TikZ::Meta::TypeConstraint::Autocoerce',
+ );
+ };
+ is $@, '', 'Valid parent';
+}
+