use strict;
use warnings;
-use Test::More tests => 7 * 4;
+use Test::More tests => 3 + 7 * 4;
use lib 't/lib';
use LaTeX::TikZ::Meta::TypeConstraint::Autocoerce;
+{
+ 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';
+}
+
{
package LaTeX::TikZ::TestX;