X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F02-autocoerce.t;h=39ab616c394f4dddbda2ec202982867cca192627;hb=5320bfbf612fadc6acc5363436814b185a220909;hp=463614b23ce80b79e95642da2727b0db25dc684d;hpb=cb4173493eb06b031615951a9deeee12a54361b1;p=perl%2Fmodules%2FLaTeX-TikZ.git

diff --git a/t/02-autocoerce.t b/t/02-autocoerce.t
index 463614b..39ab616 100644
--- a/t/02-autocoerce.t
+++ b/t/02-autocoerce.t
@@ -12,42 +12,42 @@ 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';
 }
 
 {
  package LaTeX::TikZ::TestX;
 
  use Any::Moose;
- use Any::Moose 'Util::TypeConstraints' => [ qw/
+ use Any::Moose 'Util::TypeConstraints' => [ qw<
   coerce
   from
   via
   find_type_constraint
   register_type_constraint
- / ];
+ > ];
 
  has 'id' => (
   is       => 'ro',
@@ -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] =~ /::([^:]+)$/;
@@ -108,7 +108,7 @@ use LaTeX::TikZ::Meta::TypeConstraint::Autocoerce;
   coerce   => 1,
  );
 
- __PACKAGE__->meta->make_immutable;
+ __PACKAGE__->meta->make_immutable if any_moose() ne 'Moose';
 
  sub main::Z () { __PACKAGE__ }
 }
@@ -126,7 +126,7 @@ use LaTeX::TikZ::Meta::TypeConstraint::Autocoerce;
  );
 
  coerce 'LaTeX::TikZ::TestX::Autocoerce'
-     => from __PACKAGE__
+     => from +(__PACKAGE__)
      => via { $_->x };
 
  __PACKAGE__->meta->make_immutable;