Rename LaTeX::TikZ::TypeConstraint::Autocoerce->parent into ->target

[perl/modules/LaTeX-TikZ.git] / t / 02-autocoerce.t

diff --git a/t/02-autocoerce.t b/t/02-autocoerce.t
index ba0549809d6618e83385171e702ec5d67b2420ed..86d49ccacf35b50540db56b795a88733b86696c2 100644 (file)
--- a/t/02-autocoerce.t
+++ b/t/02-autocoerce.t
@@ -12,29 +12,29 @@ use LaTeX::TikZ::Meta::TypeConstraint::Autocoerce;
 {
  my $tc = eval {
   LaTeX::TikZ::Meta::TypeConstraint::Autocoerce->new(
-   parent => undef,
+   target => undef,
   );
  };
- like $@, qr/^No meta object for undefined parent/, 'Undef parent';
+ like $@, qr/^No meta object for undefined target/, 'Undef target';
 }
 
 {
- my $parent = 'LaTeX::TikZ::A::Class::Likely::Not::To::Exist';
+ my $target = 'LaTeX::TikZ::A::Class::Likely::Not::To::Exist';
  my $tc = eval {
   LaTeX::TikZ::Meta::TypeConstraint::Autocoerce->new(
-   parent => $parent,
+   target => $target,
   );
  };
- like $@, qr/^No meta object for parent \Q$parent\E/, 'Nonexistent parent';
+ like $@, qr/^No meta object for target \Q$target\E/, 'Nonexistent target';
 }
 
 {
  my $tc = eval {
   LaTeX::TikZ::Meta::TypeConstraint::Autocoerce->new(
-   parent => 'LaTeX::TikZ::Meta::TypeConstraint::Autocoerce',
+   target => 'LaTeX::TikZ::Meta::TypeConstraint::Autocoerce',
   );
  };
- is $@, '', 'Valid parent';
+ is $@, '', 'Valid target';
 }
 
 {
@@ -58,7 +58,7 @@ use LaTeX::TikZ::Meta::TypeConstraint::Autocoerce;
  register_type_constraint(
   LaTeX::TikZ::Meta::TypeConstraint::Autocoerce->new(
    name   => 'LaTeX::TikZ::TestX::Autocoerce',
-   parent => find_type_constraint(__PACKAGE__),
+   target => find_type_constraint(__PACKAGE__),
    mapper => sub {
     shift;
     my ($last) = $_[0] =~ /::([^:]+)$/;