1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Net::GitHub::V3;
plan skip_all => 'Resource not accessible by integration' if $ENV{AUTOMATED_TESTING};
plan skip_all => 'Please export environment variable GITHUB_USER/GITHUB_PASS'
unless $ENV{GITHUB_USER} and $ENV{GITHUB_PASS};
my $gh = Net::GitHub::V3->new( login => $ENV{GITHUB_USER}, pass => $ENV{GITHUB_PASS});
my $pull = $gh->pull_request;
ok( $gh );
ok( $pull );
$pull->set_default_user_repo('fayland', 'perl-net-github');
my @closed_pull_requests = $pull->pulls({ state => 'closed' });
for my $request (@closed_pull_requests) {
is $request->{state}, "closed";
ok $request->{closed_at};
is $request->{base}{repo}{name}, "perl-net-github";
is $request->{base}{repo}{owner}{login}, "fayland";
}
done_testing;
|
