Introduce LaTeX::TikZ::Set::Chain

[perl/modules/LaTeX-TikZ.git] / t / 01-api.t

diff --git a/t/01-api.t b/t/01-api.t
index 9f00401b3c6283a0727d879a317ac8a92b0d7341..3e2f3547ff7d95ea235f030c8e1d7618e00f3c85 100644 (file)
--- 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 + 22 + 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
-/;
+>;
 
 for (@methods) {
  ok(Tikz->can($_), "Tikz evaluates to something that ->can($_)");