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

diff --git a/t/01-api.t b/t/01-api.t
index 9f00401..6e96183 100644
--- a/t/01-api.t
+++ b/t/01-api.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 5 + 20 + 12;
+use Test::More tests => 5 + 23 + 12;
 
 use LaTeX::TikZ;
 
@@ -28,15 +28,15 @@ is(prototype('Tikz'), '', 'main::Tikz is actually a constant');
  ::is(prototype('T'), '', 'LaTeX::TikZ::TestAPI2::T is actually a constant');
 }
 
-my @methods = qw/
+my @methods = qw<
  formatter functor
  raw
- path seq
+ union seq chain join
  point line polyline closed_polyline rectangle circle arc arrow
  raw_mod
  clip layer
- width color fill pattern
-/;
+ scale width color fill pattern
+>;
 
 for (@methods) {
  ok(Tikz->can($_), "Tikz evaluates to something that ->can($_)");