From 1ec8d3fb574f1635b1494172958cd601d54d82c4 Mon Sep 17 00:00:00 2001 From: Athos Ribeiro Date: Wed, 6 Jan 2016 11:14:33 -0200 Subject: [PATCH] add subroutine to return copr link --- lib/CoprStatus.pm | 9 +++++++-- t/app.t | 6 +++++- 2 files changed, 12 insertions(+), 3 deletions(-) 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