Introduce LaTeX::TikZ::Mod::Scale

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

diff --git a/t/01-api.t b/t/01-api.t
index 9f00401b3c6283a0727d879a317ac8a92b0d7341..6e96183b71fcfb22bf2838ba53883983f4b276df 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 + 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($_)");