The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use Test::More tests => 2;
use ShipIt::VC::SVK;

my $vc;

# trunk + relative
$vc = bless {
    url        => "//mirror/foo/trunk/",
    tagpattern => 'Foo-%v',
}, "ShipIt::VC::SVK";
is($vc->_tag_url_of_version("0.25"), "//mirror/foo/tags/Foo-0.25");

# absolute
$vc = bless {
    url        => "//mirror/foo/trunk",
    tagpattern => '//mirror/foo/tags/Foo-%v',
}, "ShipIt::VC::SVK";
is($vc->_tag_url_of_version("0.25"), "//mirror/foo/tags/Foo-0.25");