X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F01-api.t;h=9f00401b3c6283a0727d879a317ac8a92b0d7341;hb=af7d6a5aef3bf5fec0c187b3a13a14adc88251fd;hp=78b56213fc4fd5944282504479af2bc482da6adc;hpb=d934d1a7f7268b248687f14e0ede2723010bf243;p=perl%2Fmodules%2FLaTeX-TikZ.git

diff --git a/t/01-api.t b/t/01-api.t
index 78b5621..9f00401 100644
--- a/t/01-api.t
+++ b/t/01-api.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 5 + 18 + 12;
+use Test::More tests => 5 + 20 + 12;
 
 use LaTeX::TikZ;
 
@@ -29,6 +29,7 @@ is(prototype('Tikz'), '', 'main::Tikz is actually a constant');
 }
 
 my @methods = qw/
+ formatter functor
  raw
  path seq
  point line polyline closed_polyline rectangle circle arc arrow
@@ -45,7 +46,7 @@ require LaTeX::TikZ::Interface;
 
 for my $name (undef, ':)') {
  eval {
-  LaTeX::TikZ::Interface->import(
+  LaTeX::TikZ::Interface->register(
    $name => sub { },
   );
  };
@@ -53,7 +54,7 @@ for my $name (undef, ':)') {
 }
 
 eval {
- LaTeX::TikZ::Interface->import(
+ LaTeX::TikZ::Interface->register(
   'raw' => sub { },
  );
 };
@@ -61,7 +62,7 @@ like $@, qr/^'raw' is already defined/, 'already defined';
 
 for my $code (undef, [ ]) {
  eval {
-  LaTeX::TikZ::Interface->import(
+  LaTeX::TikZ::Interface->register(
    'foo' => $code,
   );
  };
@@ -69,7 +70,7 @@ for my $code (undef, [ ]) {
 }
 
 eval {
- LaTeX::TikZ::Interface->import(
+ LaTeX::TikZ::Interface->register(
   'foo' => sub { @_ },
  );
 };
@@ -78,7 +79,7 @@ ok(Tikz->can('foo'), 'Tikz evaluates to something that ->can(foo)');
 is_deeply [ Tikz->foo('hello') ], [ Tikz, 'hello' ], 'Tikz->foo works';
 
 eval {
- LaTeX::TikZ::Interface->import(
+ LaTeX::TikZ::Interface->register(
   'bar' => sub { @_ },
   'baz' => undef,
  );