diff --git a/lib/CoprStatus.pm b/lib/CoprStatus.pm index fcd5349..390af1b 100644 --- a/lib/CoprStatus.pm +++ b/lib/CoprStatus.pm @@ -7,14 +7,19 @@ use LWP::UserAgent; $ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0; +sub copr_monitor_url { + my ( $user, $repo ) = @_; + return "http://copr.fedoraproject.org/api/coprs/$user/$repo/monitor/"; +} + sub copr_info { my $ua = LWP::UserAgent->new; $ua->timeout(300); $ua->env_proxy; $ua->ssl_opts(SSL_verify_mode => 0x00); - my $result_v4 = $ua->get("http://copr.fedoraproject.org/api/coprs/softwarepublico/v4/monitor/"); - my $result_v5 = $ua->get("http://copr.fedoraproject.org/api/coprs/softwarepublico/v5/monitor/"); + my $result_v4 = $ua->get(copr_monitor_url("softwarepublico", "v4")); + my $result_v5 = $ua->get(copr_monitor_url("softwarepublico", "v5")); my $json = JSON->new->allow_nonref; diff --git a/t/app.t b/t/app.t index 016cc26..55ba830 100644 --- a/t/app.t +++ b/t/app.t @@ -2,7 +2,7 @@ use strict; use warnings; use Test::More; -BEGIN { use_ok('CoprStatus') } +BEGIN { use_ok('CoprStatus'); } my $info = CoprStatus::copr_info(); ok(ref($info), 'HASH'); @@ -27,4 +27,8 @@ like($table, qr/danger|success/m); my $html = CoprStatus::build_html(); like($html, qr/SPB Copr Status/m); +my $monitor_url = copr_monitor_url("foo", "bar"); +my $test_url = "http://copr.fedoraproject.org/api/coprs/foo/bar/monitor/"; +is($monitor_url, $test_url); + done_testing(); -- libgit2 0.21.2