X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2Flib%2FLaTeX%2FTikZ%2FTestHelper.pm;h=3fc1fc0d36eb6d1a7fbe0ea1c01f8b855c5f4fd9;hb=3661d7849ae4636b74000e33e068493d90ed8337;hp=deb1dff21cfe4978d8a1733c9f25b9e4980013c6;hpb=1ef0d773dfe4f90087af6a39b06061eaadb44a65;p=perl%2Fmodules%2FLaTeX-TikZ.git

diff --git a/t/lib/LaTeX/TikZ/TestHelper.pm b/t/lib/LaTeX/TikZ/TestHelper.pm
index deb1dff..3fc1fc0 100644
--- 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;