use strict;
use warnings;
-use Test::More tests => 5 + 18 + 12;
+use Test::More tests => 5 + 20 + 12;
use LaTeX::TikZ;
}
my @methods = qw/
+ formatter functor
raw
path seq
point line polyline closed_polyline rectangle circle arc arrow
for my $name (undef, ':)') {
eval {
- LaTeX::TikZ::Interface->import(
+ LaTeX::TikZ::Interface->register(
$name => sub { },
);
};
}
eval {
- LaTeX::TikZ::Interface->import(
+ LaTeX::TikZ::Interface->register(
'raw' => sub { },
);
};
for my $code (undef, [ ]) {
eval {
- LaTeX::TikZ::Interface->import(
+ LaTeX::TikZ::Interface->register(
'foo' => $code,
);
};
}
eval {
- LaTeX::TikZ::Interface->import(
+ LaTeX::TikZ::Interface->register(
'foo' => sub { @_ },
);
};
is_deeply [ Tikz->foo('hello') ], [ Tikz, 'hello' ], 'Tikz->foo works';
eval {
- LaTeX::TikZ::Interface->import(
+ LaTeX::TikZ::Interface->register(
'bar' => sub { @_ },
'baz' => undef,
);