The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl

use strict;
use warnings;

use Test::Most;
use GitHub::MergeVelocity::Repository;
use Pithub::PullRequests;

my @urls = (
    'git@github.com:user/repository-name.git',
    'https://github.com/user/repository-name',
    'https://github.com/user/repository-name.git',
    'https://github.com/user/repository-name/issues',
    'user/repository-name',
);

foreach my $url (@urls) {

    my $repo = GitHub::MergeVelocity::Repository->new(
        github_client => Pithub::PullRequests->new(),
        url           => $url,
    );
    is( $repo->user, 'user',            'repo user from ' . $url );
    is( $repo->name, 'repository-name', 'repo name from ' . $url );
}

done_testing;