Just use Mouse instead of Any::Moose

[perl/modules/LaTeX-TikZ.git] / t / lib / LaTeX / TikZ / TestHelper.pm

diff --git a/t/lib/LaTeX/TikZ/TestHelper.pm b/t/lib/LaTeX/TikZ/TestHelper.pm
index deb1dff21cfe4978d8a1733c9f25b9e4980013c6..3fc1fc0d36eb6d1a7fbe0ea1c01f8b855c5f4fd9 100644 (file)
--- a/t/lib/LaTeX/TikZ/TestHelper.pm
+++ b/t/lib/LaTeX/TikZ/TestHelper.pm
@@ -5,10 +5,10 @@ use warnings;
 
 use Test::More ();
 
-use Any::Moose 'Exporter';
+use Mouse::Exporter;
 
-any_moose('Exporter')->setup_import_methods(
- as_is => [ qw<using check> ],
+Mouse::Exporter->setup_import_methods(
+ as_is => [ qw<using check is_point_ok> ],
 );
 
 my $tikz;
@@ -40,4 +40,16 @@ sub check {
  return $head, $decl, $body;
 }
 
+sub is_point_ok {
+ my ($p, $x, $y, $desc) = @_;
+
+ my $ok = Test::More::isa_ok($p, 'LaTeX::TikZ::Point', "$desc isa point");
+ if ($ok) {
+  Test::More::cmp_ok($p->x, '==', $x, "$desc x coordinate is right");
+  Test::More::cmp_ok($p->y, '==', $y, "$desc y coordinate is right");
+ } else {
+  Test::More::fail("$desc placeholder $_") for 1, 2;
+ }
+}
+
 1;