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
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
|
use FindBin ();
use lib "$FindBin::Bin/../lib";
use Pithub::Test::Factory ();
use Test::Most import => [qw( done_testing is like ok skip use_ok )];
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::Gists->get
{
my $result = $p->gists->get( gist_id => 1 );
is $result->success, 1, 'Pithub::Gists->get successful';
is $result->content->{created_at}, '2008-07-15T18:17:13Z',
'Pithub::Gists->get created_at';
}
# Pithub::Gists->list
{
my $result = $p->gists->list( public => 1 );
is $result->success, 1, 'Pithub::Gists->list successful';
while ( my $row = $result->next ) {
ok $row->{id}, "Pithub::Gists->list has id: $row->{id}";
like $row->{url}, qr{https://api.github.com/gists/[a-f\d]+$},
"Pithub::Gists->list has url: $row->{url}";
}
}
# Pithub::Gists::Comments->list
{
my $result = $p->gists->comments->list( gist_id => 1 );
is $result->success, 1, 'Pithub::Gists::Comments->list successful';
while ( my $row = $result->next ) {
ok $row->{id}, "Pithub::Gists::Comments->list has id: $row->{id}";
like $row->{url},
qr{https://api.github.com/gists/[a-f\d]+/comments/\d+$},
"Pithub::Gists::Comments->list has url: $row->{url}";
}
}
}
# 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::Gists->create
my $gist_id = $p->gists->create(
data => {
description => 'the description for this gist',
public => 1,
files =>
{ 'file1.txt' => { content => 'String file content' } }
}
)->content->{id};
# Pithub::Gists->is_starred
ok !$p->gists->is_starred( gist_id => $gist_id )->success,
'Pithub::Gists->is_starred not successful, gist not starred yet';
# Pithub::Gists->star
ok $p->gists->star( gist_id => $gist_id )->success,
'Pithub::Gists->star successful';
# Pithub::Gists->is_starred
ok $p->gists->is_starred( gist_id => $gist_id )->success,
'Pithub::Gists->is_starred successful, gist is starred now';
# Pithub::Gists->unstar
ok $p->gists->unstar( gist_id => $gist_id )->success,
'Pithub::Gists->unstar successful';
# Pithub::Gists->is_starred
ok !$p->gists->is_starred( gist_id => $gist_id )->success,
'Pithub::Gists->is_starred not successful, gist not starred anymore';
# Pithub::Gists->get
is $p->gists->get( gist_id => $gist_id )->content->{description},
'the description for this gist',
'Pithub::Gists->get file content';
# Pithub::Gists->update
ok $p->gists->update(
gist_id => $gist_id,
data => { description => 'the UPDATED description for this gist' }
)->success, 'Pithub::Gists->update successful';
# Pithub::Gists->get
is $p->gists->get( gist_id => $gist_id )->content->{description},
'the UPDATED description for this gist',
'Pithub::Gists->get file content';
# Pithub::Gists::Comments->create
my $comment_id = $p->gists->comments->create(
gist_id => $gist_id,
data => { body => 'some gist comment' }
)->content->{id};
like $comment_id, qr{^\d+$},
'Pithub::Gists::Comments->create returned a comment id';
# Pithub::Gists::Comments->get
is $p->gists->comments->get(
gist_id => $gist_id,
comment_id => $comment_id
)->content->{body},
'some gist comment', 'Pithub::Gists::Comments->get body';
# Pithub::Gists::Comments->update
ok $p->gists->comments->update(
gist_id => $gist_id,
comment_id => $comment_id,
data => { body => 'some UPDATED gist comment' }
)->success,
'Pithub::Gists::Comments->update successful';
# Pithub::Gists::Comments->get
is $p->gists->comments->get(
gist_id => $gist_id,
comment_id => $comment_id
)->content->{body},
'some UPDATED gist comment',
'Pithub::Gists::Comments->get body after update';
# Pithub::Gists::Comments->delete
ok $p->gists->comments->delete(
gist_id => $gist_id,
comment_id => $comment_id
)->success,
'Pithub::Gists::Comments->delete successful';
# Pithub::Gists::Comments->get
ok !$p->gists->comments->get(
gist_id => $gist_id,
comment_id => $comment_id
)->success,
'Pithub::Gists::Comments->get not successful after delete';
# Pithub::Gists->delete
ok $p->gists->delete( gist_id => $gist_id )->success,
'Pithub::Gists->delete successful';
# Pithub::Gists->get
ok !$p->gists->get( gist_id => $gist_id )->success,
'Pithub::Gists->get not successful after delete';
}
}
done_testing;
|
