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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
use FindBin;
use lib "$FindBin::Bin/../lib";
use Pithub::Test::Factory;
use Test::Most;
BEGIN {
use_ok('Pithub');
}
# These tests may break very easily because data on Github can and will change, of course.
# And they also might fail once the ratelimit has been reached.
SKIP: {
skip 'Set PITHUB_TEST_LIVE_DATA to true to run these tests', 1 unless $ENV{PITHUB_TEST_LIVE_DATA};
my $p = Pithub->new;
# Pithub::Users->get
{
my $result = $p->users->get( user => 'plu' );
is $result->success, 1, 'Pithub::Users->get successful';
is $result->content->{id}, '31597', "Pithub::Users->get: Attribute id";
is $result->content->{login}, 'plu', "Pithub::Users->get: Attribute login";
is $result->content->{name}, 'Johannes Plunien', "Pithub::Users->get: Attribute name";
}
}
# Following tests require a token and should only be run on a test
# account since they will create a lot of activity in that account.
SKIP: {
skip 'PITHUB_TEST_TOKEN required to run this test - DO NOT DO THIS UNLESS YOU KNOW WHAT YOU ARE DOING', 1 unless $ENV{PITHUB_TEST_TOKEN};
my $org = Pithub::Test::Factory->test_account->{org};
my $org_repo = Pithub::Test::Factory->test_account->{org_repo};
my $repo = Pithub::Test::Factory->test_account->{repo};
my $user = Pithub::Test::Factory->test_account->{user};
my $p = Pithub->new(
user => $user,
repo => $repo,
token => $ENV{PITHUB_TEST_TOKEN}
);
{
# Pithub::Users::Keys->create
my $key_id = $p->users->keys->create(
data => {
title => 'someone@somewhere',
key => "ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQCuK40Ng6C0NfMrrVuE+6mkUyj90JcvPdwrqFi/tv4g5Ncny5FCkEMATmYA0NtByAS+2p+jwClbVI9dav077+DxHJbwDwcecXXqjUA4gnZM+03kksPbTjfuYql9nC8PdhgZ3kiftop7AVZZnhSKF5stLwa0hkCZkXVeaajQzaG1pCnJJNOcnaRPcuEkTToTnkw8y3Q3fpuMmRjz3NCayh/gJgcj/EtrextqnNpDT4j4r3IeCGvCMEtmUvepKG6sTdnh1EDX5U163is9Qnwfdo3D7CVUh2rhJ8pM6RnAbqbzWqQ+gbhWoXQ7T1Qdq1GXKN7lMMbjz9M7cPK3Vs0p5yl1",
}
)->content->{id};
# Pithub::Users::Keys->get
is $p->users->keys->get( key_id => $key_id )->content->{title}, 'someone@somewhere', 'Pithub::Users::Keys->get title attribute';
# Pithub::Users::Keys->list
is $p->users->keys->list->first->{title}, 'someone@somewhere', 'Pithub::Users::Keys->list title attribute';
# Pithub::Users::Keys->delete
ok $p->users->keys->delete( key_id => $key_id )->success, 'Pithub::Users::Keys->delete successful';
# Pithub::Users::Keys->get
ok !$p->users->keys->get( key_id => $key_id )->success, 'Pithub::Users::Keys->get not successful after delete';
}
{
# Pithub::Users::Emails->add
ok $p->users->emails->add( data => ['johannes@plunien.name'] )->success, 'Pithub::Users::Emails->add successful';
# Pithub::Users::Emails->list
is $p->users->emails->list->content->[0]->{email}, 'johannes@plunien.name', 'Pithub::Users::Emails->list recently added email address';
# Pithub::Users::Emails->delete
ok $p->users->emails->delete( data => ['johannes@plunien.name'] )->success, 'Pithub::Users::Emails->delete successful';
# Pithub::Users::Emails->list
isnt $p->users->emails->list->content->[-1], 'johannes@plunien.name', 'Pithub::Users::Emails->list after delete';
}
{
# Pithub::Users->update
ok $p->users->update( data => { location => "somewhere $$" } )->success, 'Pithub::Users->update successful';
# Pithub::Users->update
is $p->users->get->content->{location}, "somewhere $$", 'Pithub::Users->get location successful after update';
}
{
# Pithub::Users::Followers->list
ok $p->users->followers->list( user => 'plu' )->count >= 30, 'Pithub::Users::Followers->list count';
# Pithub::Users::Followers->list_following
ok $p->users->followers->list_following( user => 'plu' )->count >= 30, 'Pithub::Users::Followers->list_following count';
# Pithub::Users::Followers->list
ok $p->users->followers->list->count >= 0, 'Pithub::Users::Followers->list count authenticated user';
# Pithub::Users::Followers->list_following
is $p->users->followers->list_following->count, 0, 'Pithub::Users::Followers->list_following count authenticated user';
# Pithub::Users::Followers->is_following
ok !$p->users->followers->is_following( user => 'plu' )->success, 'Pithub::Users::Followers->is_following not successful yet';
# Pithub::Users::Followers->follow
ok $p->users->followers->follow( user => 'plu' )->success, 'Pithub::Users::Followers->follow successful';
# Pithub::Users::Followers->list_following
is $p->users->followers->list_following->count, 1, 'Pithub::Users::Followers->list_following authenticated user now following one user';
# Pithub::Users::Followers->is_following
ok $p->users->followers->is_following( user => 'plu' )->success, 'Pithub::Users::Followers->is_following successful now';
# Pithub::Users::Followers->unfollow
ok $p->users->followers->unfollow( user => 'plu' )->success, 'Pithub::Users::Followers->unfollow successful';
# Pithub::Users::Followers->is_following
ok !$p->users->followers->is_following( user => 'plu' )->success, 'Pithub::Users::Followers->is_following not successful anymore';
}
}
done_testing;
|
