X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLaTeX-TikZ.git;a=blobdiff_plain;f=t%2F02-autocoerce.t;fp=t%2F02-autocoerce.t;h=b171715eda6d219de7714b1d731d00a0ce01a7d8;hp=39ab616c394f4dddbda2ec202982867cca192627;hb=3661d7849ae4636b74000e33e068493d90ed8337;hpb=1a4a5a48250bfa6a96241cfb1526665da8291e03 diff --git a/t/02-autocoerce.t b/t/02-autocoerce.t index 39ab616..b171715 100644 --- a/t/02-autocoerce.t +++ b/t/02-autocoerce.t @@ -40,14 +40,12 @@ use LaTeX::TikZ::Meta::TypeConstraint::Autocoerce; { package LaTeX::TikZ::TestX; - use Any::Moose; - use Any::Moose 'Util::TypeConstraints' => [ qw< - coerce - from - via + use Mouse; + use Mouse::Util::TypeConstraints qw< + coerce from via find_type_constraint register_type_constraint - > ]; + >; has 'id' => ( is => 'ro', @@ -83,7 +81,7 @@ use LaTeX::TikZ::Meta::TypeConstraint::Autocoerce; { package LaTeX::TikZ::TestY; - use Any::Moose; + use Mouse; has 'num' => ( is => 'ro', @@ -99,7 +97,7 @@ use LaTeX::TikZ::Meta::TypeConstraint::Autocoerce; { package LaTeX::TikZ::TestZ; - use Any::Moose; + use Mouse; has 'x' => ( is => 'ro', @@ -108,7 +106,7 @@ use LaTeX::TikZ::Meta::TypeConstraint::Autocoerce; coerce => 1, ); - __PACKAGE__->meta->make_immutable if any_moose() ne 'Moose'; + __PACKAGE__->meta->make_immutable; sub main::Z () { __PACKAGE__ } } @@ -116,8 +114,8 @@ use LaTeX::TikZ::Meta::TypeConstraint::Autocoerce; { package LaTeX::TikZ::TestW; - use Any::Moose; - use Any::Moose 'Util::TypeConstraints'; + use Mouse; + use Mouse::Util::TypeConstraints; has 'x' => ( is => 'ro',