X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLaTeX-TikZ.git;a=blobdiff_plain;f=t%2F01-api.t;h=9f00401b3c6283a0727d879a317ac8a92b0d7341;hp=3eea9d9b1123f2bbed752381bb9a621fbd2b3b65;hb=af7d6a5aef3bf5fec0c187b3a13a14adc88251fd;hpb=92147217516a40b35ca00c8e08939e8aa5478426 diff --git a/t/01-api.t b/t/01-api.t index 3eea9d9..9f00401 100644 --- a/t/01-api.t +++ b/t/01-api.t @@ -46,7 +46,7 @@ require LaTeX::TikZ::Interface; for my $name (undef, ':)') { eval { - LaTeX::TikZ::Interface->import( + LaTeX::TikZ::Interface->register( $name => sub { }, ); }; @@ -54,7 +54,7 @@ for my $name (undef, ':)') { } eval { - LaTeX::TikZ::Interface->import( + LaTeX::TikZ::Interface->register( 'raw' => sub { }, ); }; @@ -62,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, ); }; @@ -70,7 +70,7 @@ for my $code (undef, [ ]) { } eval { - LaTeX::TikZ::Interface->import( + LaTeX::TikZ::Interface->register( 'foo' => sub { @_ }, ); }; @@ -79,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, );