use strict;
use warnings;

use Test::More tests => 6;
use SVG;

# test: style

my $svg = SVG->new;
my $defs = $svg->defs();

# generate an anchor
my $tag0 = $svg->anchor(
    -href=>'http://here.com/some/simpler/SVG.svg'
);
# add a circle to the anchor. The circle can be clicked on.
$tag0->circle(cx=>10,cy=>10,r=>1);

# more complex anchor with both URL and target
$svg->comment("anchor with: -href, target");
my $tag1 = $svg->anchor(
      -href   => 'http://example.com/some/page.html',
      target => 'new_window_1',
);
$tag1->circle(cx=>10,cy=>10,r=>1);

$svg->comment("anchor with: -href, -title, -actuate, -show");
my $tag2 = $svg->anchor(
    -href => 'http://example.com/some/other/page.html',
    -actuate => 'onLoad',
    -title => 'demotitle',
    -show=> 'embed',
);
$tag2->circle(cx=>10,cy=>10,r=>1);

my $out = $tag0->xmlify;
like($out, qr{http://here\.com/some/simpler/SVG\.svg}, "anchor 3: xlink href");

$out = $tag1->xmlify;
like($out, qr/target="new_window_1"/, "anchor 4: target");

$out = $tag2->xmlify;
like($out, qr/xlink:title="demotitle"/, "anchor 6: title");
$out = $tag2->xmlify;
like($out, qr/actuate/, "anchor 7: actuate");

$out = $tag2->xmlify;
like($out, qr/xlink:show="embed"/, "anchor 8: show");

my $tag3 = $svg->a(
    -href   => 'http://example.com/some/page.html',
    -title => 'direct_a_tag',
    target => 'new_window_1',);

$out = $tag3->xmlify;
like($out, qr/direct_a_tag/, "anchor 9: direct a method");