use warnings;
use strict;
use utf8;
use FindBin '$Bin';
use Test::More;
my $builder = Test::More->builder;
binmode $builder->output, ":utf8";
binmode $builder->failure_output, ":utf8";
binmode $builder->todo_output, ":utf8";
binmode STDOUT, ":encoding(utf8)";
binmode STDERR, ":encoding(utf8)";
use Image::SVG::Path ':regex';
ok ($svg_path);
like ('M 1 2 3 4', $moveto);
unlike ('M 1 2 3 4', $drawto_command);
like ('a25,25 -30 0,1 50,-25', $elliptical_arc);
like ('Q400,50 600,300', $quadratic_bezier_curveto);
like ('c0-1.68-1.36-3.03-3.03-3.03', $curveto);
like ('s0,75.97-0.23,82.08', $smooth_curveto);
# my $longinput = 'm60.356931,42.59396c2.215968,0.45727,4.098968,0.406462,5.361955,0,3.019688,-0.965348,10.746874,-2.680111,17.302926,-4.153536,3.524883,-0.787521,5.247139,0,4.408974,4.90295-0.654457,3.810584-4.328602,19.06562-4.902687,29.532023-0.47075,8.484899,1.733737,14.861275,9.9776,14.861275';
# TODO: {
# local $TODO = 'Simplify regex';
# my $warning;
# local $SIG{__WARN__} = sub {
# $warning = shift;
# };
# # $longinput =~ s/([^eE])-/$1,-/g;
# $longinput =~ $svg_path;
# ok (! $warning || $warning !~ /exceeded/, "Regex does not blow up");
# if ($warning) {
# diag ($warning);
# }
# }
done_testing ();