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

diff --git a/t/01-api.t b/t/01-api.t
index 9f00401..b0d7b20 100644
--- a/t/01-api.t
+++ b/t/01-api.t
@@ -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
  point line polyline closed_polyline rectangle circle arc arrow
  raw_mod
  clip layer
  width color fill pattern
-/;
+>;
 
 for (@methods) {
  ok(Tikz->can($_), "Tikz evaluates to something that ->can($_)");