]> git.vpit.fr Git - perl/modules/LaTeX-TikZ.git/commitdiff
Add a backward compatible Tikz->path keyword
authorVincent Pit <vince@profvince.com>
Wed, 22 Apr 2015 15:12:58 +0000 (12:12 -0300)
committerVincent Pit <vince@profvince.com>
Wed, 22 Apr 2015 15:12:58 +0000 (12:12 -0300)
It is now equivalent to Tikz->union.

lib/LaTeX/TikZ/Set/Union.pm
t/01-api.t

index 1160e6b0414e4c4149f50d2727f86feae2eea843..b13eb473c74000d2244c9cf9f4914d80163e63cb 100644 (file)
@@ -108,6 +108,11 @@ LaTeX::TikZ::Interface->register(
  union => sub {
   shift;
 
+  __PACKAGE__->new(kids => \@_);
+ },
+ path  => sub {
+  shift;
+
   __PACKAGE__->new(kids => \@_);
  },
 );
index 6e96183b71fcfb22bf2838ba53883983f4b276df..36e9166cb87d5641c09bc159e1fab00532023fe2 100644 (file)
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 5 + 23 + 12;
+use Test::More tests => 5 + 24 + 12;
 
 use LaTeX::TikZ;
 
@@ -31,7 +31,7 @@ is(prototype('Tikz'), '', 'main::Tikz is actually a constant');
 my @methods = qw<
  formatter functor
  raw
- union seq chain join
+ union path seq chain join
  point line polyline closed_polyline rectangle circle arc arrow
  raw_mod
  clip layer