use strict;
use warnings;
-use Test::More tests => (14 + 2 * 5) + 2 * (11 + 2 * 3);
+use Test::More tests => (16 + 2 * 5) + 2 * (13 + 2 * 3);
use Math::Complex;
\draw (-1cm,2cm) -- (3cm,-4cm) ;
RES
+# Arrow
+
+my $ar = eval {
+ Tikz->arrow($o, 1);
+};
+is $@, '', 'creating an arrow from two points doesn\'t croak';
+
+check $ar, 'an arrow from two points', <<'RES';
+\draw [->] (0cm,0cm) -- (1cm,0cm) ;
+RES
+
+$ar = eval {
+ Tikz->arrow(2, dir => -i());
+};
+is $@, '', 'creating an arrow from a point and a direction doesn\'t croak';
+
+check $ar, 'an arrow from a point and a direction', <<'RES';
+\draw [->] (2cm,0cm) -- (2cm,-1cm) ;
+RES
+
# Polyline
my $w = Tikz->point(3, -4);
eval {
Tikz->circle($o => -1);
};
-like $@, qr/isn't a non-negative real number/,
+like $@, failed_valid('__ANON__'),
'creating a circle with a negative radius croaks';
# Arc